Разделение предложения на отдельные слова и сортировку их в алфавитном порядке

program main;
type List=^Elem;
Elem = record
  data: string[20];
  next: List;
end;
 
procedure AddElem(var lst:List; value: string);
var
  p, q:List;
begin
    new(q);
    q^.data:=value;
    if lst=nil then lst:=q
    else begin
      p:=lst;
      while p^.next <>nil do
        p:=p^.next;
      p^.next:=q;
    end;
end;
 
procedure unpack(s: String; var lst: List);
const letters: set of char=['a'..'z', 'A'..'Z'];
var wrd: String;
    i:Integer;
begin
  i:=1;
  while i<length(s) do
    if s[i] in letters then begin
      wrd:='';
      while (s[i] in letters) and (i<length(s)) do begin
        wrd:=wrd+s[i];
        inc(i);
      end;
      AddElem(lst, wrd);
    end
    else inc(i);
end;
 
procedure sort(var head: List);
var p, current: List;
    txt: String;
begin
  p:=head;
  while p^.next<>nil do begin
    current:=p^.next;
    while current<>nil do begin
      if ord(p^.data[1])>ord(current^.data[1]) then begin
        txt:=p^.data;
        p^.data:=current^.data;
        current^.data:=txt;
      end;
      current:=current^.next;
    end;
    p:=p^.next;
  end;
end;
 
procedure print(head: List);
var p: List;
begin
  p:=head;
  while p<>nil do begin
    write(p^.data,' ');
    p:=p^.next;
  end;
end;
 
var lst: List;
    s:string;
begin
  {assign(input,'input.txt');
  reset(input);
  read(input,s);}
  {Ввести последовательность слов, разделенных любыми символами}
  read(s);
  unpack(s, lst);
  print(lst);
  writeln;
  writeln('Sorting...');
  sort(lst);
  print(lst);
end.

data: string[20];