Списки

uses crt;
type Pnobe=^Tnobe;
 
Tnobe=record
data:integer;
next:Pnobe;
end;
 
{Spisok=object
     p:Pnobe;
     Constructor Init;
     Procedure zap;
     Procedure Print;
     end;
 
Constructor Spisok.Init;
begin
p:=nil;
end;   }
 
 
procedure zap(var p,tmp1:Pnobe);
var i:integer;
    p1:Pnobe;
 begin
   randomize;
   p:=nil;
   for i:=1 to 10 do
      begin
         new(p1);
         p1^.next:=p;
         p1^.data:=random(10);
         p:=p1;
      end;
   tmp1:=p1;
 end;
 
procedure posl(var tmp1:Pnobe);
var p,p1:Pnobe;
 begin
    p1:=tmp1;
    while (p1<>nil) and (p1^.next<>nil) do
       begin
          p1:=p^.next;
          if p1^.data<= p^.data then
             begin
                p^.next:=p1^.next;
                dispose(p1)
             end
          else p:=p1;
       end;
 end;
 
procedure Print(var p1,tmp1:Pnobe);
 begin
 p1:=tmp1;
   while p1<>nil do
      begin
        write(p1^.data,' ');
        p1:=p1^.next;
      end;
   writeln;
 end;
 
var p2,tmp2:Pnobe;
begin
clrscr;
zap(p2,tmp2);
posl(tmp2);
Print(p2,tmp2);
readkey;
end.