Написать функцию, которая проверяет, упорядочены ли элементы списка по алфавиту

type telem='a'..'z';
            list=^node;
            node= record
                   info : telem;
                   next : list
                  end;
var s,l : list;
    x : telem;
    n,i : integer;
 
function sort(l : list) : boolean;
var p,q : list;                                          {ссылка на пару соседних звеньев}
      ok : boolean;
begin
      ok:=true; p:=L;
{nil или ссылка на 1-е звено}    if p<>nil then   begin q:=p^.next;
{nil или ссылка на 2-е звено}     while (q<>nil) and ok do
                                 begin
                                        ok:=p^.info<=q^.info;
                                        p:=q; q:=q^.next            {переход к след. паре}
                                 end
                        end;
      sort:=ok
end;
 
procedure out_spisok(l:list);
begin
   while l<> nil do
         begin s:=l^.next; write(l^.info,' '); l:=s; end;
   writeln;
end;
begin
   {формируем список}
   s:=nil;
   writeln('Введите количество элементов списка');
   readln(n);
   for i:=1 to n do
      begin
      new(l); l^.next:=s; readln(x); l^.info:=x; s:=l; end;
                                                                    {выводим список на экран}
   writeln('Введенный список');
   out_spisok(l);
   if sort(l) then writeln('Список отсортирован по алфавиту')
                else writeln('Список не отсортирован по алфавиту');
                                                                   {освобождаем динамическую память}
   while l<> nil do
   begin  s:=l^.next; dispose(l); l:=s; end;
end.

type char='a'..'z';
            list=^node;
            node= record
                   info :char;
                   next : list
                  end;
var s,l : list;
    x : char;
    n,i : integer;