Реферат: Основы программирования
if tcurr^.inf<>adre then
begin
temp:=tcurr;
tcurr:=tcurr^.next;
end
else
begin
if tcurr=tfirst then
begin
tfirst:=temp^.next;
tcurr:=dont;
end
else
if tcurr^.next=nil then
begin
temp^.next:=tcurr^.next;
tcurr:=temp;
tcurr^.next:=nil;
dont:=tcurr;
end
else
begin
temp^.next:=tcurr^.next;
tcurr:=temp;
end;
end;
end;
tcurr:=dont;
writeln ('Alles');