линейные списки

Program kontr2z5;
uses
  crt;
Type
 pt=^elem;
 elem=record
       data:char;
       next:pt;
      end;
 
Procedure Print(u:pt);
begin
 repeat
  Write(u^.data, ' ');
  u:=u^.next;
 until u=nil;
 writeln
end;
 
procedure init(var first:pt;var n:integer);
var
 i:integer;
 t:pt;
begin
 t:=first;
 repeat
   clrscr;
   Writeln('VVedute kolu4ectvo elementov');
   Write('Kolu4ectvo= ');
   readln(n);
 until n>2;
 New(t);
 i:=1;
 Write(i,' -blu element= ');
 readln(t^.data);
 t^.next:=Nil;
 first:=t;
 for i:=2 to n do
 begin
  Write(i,' -blu element= ');
  New(t^.next);
  t:=t^.next;
  t^.next:=nil;
  readln(t^.data)
 end
end;
 
Procedure srav(var nach:pt; n:integer);
var
 j,i:char;
 tt,t:pt;
 tmp:char;
begin
  t:=nach;
  while t<>nil do
   begin
    tt:=t^.next;
    while tt<>nil do
     begin
      if ord(tt^.data)<ord(t^.data) then
      begin
       tmp:=tt^.data;
       tt^.data:=t^.data;
       t^.data:=tmp;
      end;
      tt:=tt^.next;
     end;
     t:=t^.next;
    end;
end;
 
Procedure del(t:pt);
var
 tmp:pt;
begin
  while t<>nil do
  begin
    tmp:=t^.next;
    dispose(t);
    t:=tmp
  end
end;
 
var
 first,spis:pt;
 n:integer;
begin
 first:=nil;
 n:=0;
 Init(first,n);
 print(first);
 srav(first,n);
 print(first);
 del(first);
 readln;
end.

function Prov(first: pt):boolean;
var t: pt; 
begin t := first; Pr := true; 
        while (t^.next<>nil) do
        begin 
             if  ord(t^.data)<ord(t^.next^.data) then {предыдущий эл-т меньше следующего }
               begin Prov := false; break; {нет упорядоченности по убыванию}
               end; 
             t := t^.next; 
        end; 
end;