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

for i:=1 to n-1 do
for j:=i+1 to n do
if ord(s[i])<ord(s[j]) then
 begin
  x:=s[i];
  s[i]:=s[j];
  s[j]:=x;
 end;

s:string;
x:char;

Procedure srav(var t:pt;n:integer);
var
 j,i:integer;
 x:char;
begin
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if ord(t^.data[i])<ord(t^.data[j]) then
     begin
      x:=t^.data[i];
      t^.data[i]:=t^.data[j];
      t^.data[j]:=x;
     end;
end;

Procedure srav(var t:pt;n:integer);
var
 j,i:integer;
 x:pt;
begin
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if ord(t^.data[i])<ord(t^.data[j]) then
     begin
      x:=t^[i];
      t^[i]:=t^[j];
      t^[j]:=x;
     end;
end;

Procedure srav(var nach:pt;n:integer); 
var        {nach- указатель на начало списка}
 j,i:integer;
 t,tt: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;

if ord(tt^.data)<ord(t^.data) then