Bo nie rozumiem takiej prostej procedury.
W zeszycie mam taką procedurę napisaną, która odwraca listę jednokierunkową.
Na bazie typu:
Kod: Zaznacz cały
type lista=^element;
element=record
pole: integer;
next :lista
end;
Kod: Zaznacz cały
procedure odwroc (var h:lista);
var
l,u:lista;
begin
l:=nil;
while h<>nil do begin
u:=h;
h:=h^.next;
u^.next:=l;
l:=u;
end;
h:=l;
end.