Списки

program laba4;
type
 
link = ^linelink;  
linelink = record
number : integer;
next : link
end;
 
var
t,start,last : link;  
c : integer;
f1 : text;
 
procedure list ( var top, last : link; n1 : integer ); 
begin
 
if top=nil then 
begin
new(top);
top^.number:=0;
last:=start;
new(last^.next);
last:=last^.next;
last^.number:=n1;
last^.next:=nil
end
else  
begin
new(last^.next);
last:=last^.next;
last^.number:=n1;
last^.next:=nil
end
 
end;
 
procedure povorot(var top:link);
begin
if top^.next<>nil then
begin
povorot(top^.next);
top^.next^.next:=top;
end;
end;
 
procedure delete1 ( var top : link );  
var
last,uk : link;
begin
 
if top<>nil then 
begin
last:=top;  
while last^.next<>nil do  
begin
if last^.next^.number < 0 then
begin
uk:=last^.next;  
last^.next:=last^.next^.next;  
dispose (uk) 
end
else last:=last^.next 
end
end
end;
 
procedure conclusion ( var top : link ); 
var
last : link;
begin
if top<>nil then 
begin
last:=top^.next; 
while last<>nil do 
begin
writeln (last^.number);
last:=last^.next
end
end
end;
 
begin
start:=nil; 
last:=nil;
readln (c);
while c<>0 do 
begin
list (start,last,c);
readln (c)
end;
writeln ('------------');
 
povorot (start);
start^.next:=nil;
t:=start;
start:=last;
last:t;
writeln;
delete1 (start); 
conclusion (start);  
readln
end.