Составить подпрограмму для проверки упорядоченности элементов списка по убыванию кодов букв.

const N=20;
type sp=^elem_spisok;
      elem_spisok=record
       info:char;
       adres:sp;
     end;
 
var beg:sp;
    i:integer;
 
//нужно отредактировать так как не целесообразно каждый раз чекать адрес последнего элемента.
procedure Add(dannie:char; var beg:sp);
{dobavlenie elementa v konec spiska}
var p,s:sp;
begin
  new(s);
  s^.info:=dannie;
  s^.adres:=nil;   {sformirovali neobhodimyi element}
  if beg=nil then beg:=s {esli spisok pustoi zapomili ego kak nachalo}
  else
   begin   {inache}
    p:=beg;
    while p^.adres<>nil do p:=p^.adres; {prohodim do konca spiska}
    p^.adres:=s;                    {i vstavliem ssylku na element}
   end;
end;
 
procedure WriteSpisok(beg:sp);
{vyvod elementov spiska}
var p:sp;
begin
  p:=beg;
  while p<>nil do
   begin
    writeln(p^.info,' ');
    p:=p^.adres;
   end;
end;
  //нужно сделать подпрограммой проверки упорядоченности элементов по убыванию кодов букв.
procedure SortBubl(beg:sp);
{Пузырьковая сортировка}
var
  tmp,x:sp;
  tmps:char;
begin
  x:=beg;
  while x<>nil do
  begin
    tmp:=x^.adres;
    while tmp<>nil do
    begin
      if tmp^.info>x^.info then
      begin
        tmps:=tmp^.info;
        tmp^.info:=x^.info;
        x^.info:=tmps
      end;
      tmp:=tmp^.adres
    end;
    x:=x^.adres
  end
end;
 
begin
  randomize;
  beg:=nil;
  for i:=1 to n do Add(chr(random(25)+97),beg);
  SortBubl(beg);
  WriteSpisok(beg);
  readln;
end.