Вывести все слова строки в алфавитном порядке

uses crt;
var s:string; {строка}
    a:array[1..200] of string;{массив слов}
    n,i,j:byte;
begin
clrscr;
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
s:=' '+s+' '; {добавим пробел в начало и в конец для удобства}
n:=0;{количество слов}
i:=2;{начнем со 2 символа, 1 пробел}
while i<=length(s) do
if (s[i]<>' ')and(s[i-1]=' ') then {если не пробел, а перед ним пробел}
 begin
  inc(n); {новое слово}
  a[n]:='';{будем его составлять}
  j:=i;
  while s[j]<>' ' do{пока не пробел}
   begin
    a[n]:=a[n]+s[j];
    inc(j);
   end;
  i:=i+length(a[n]); {перешагнем через слово}
 end
else inc(i);{пропускаем пробелы}
{сортируем массив по возрастаению=по алфавиту как в примере, т.е а>Я}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  s:=a[i];
  a[i]:=a[j];
  a[j]:=s;
 end;
for i:=1 to n do
write(a[i],' ');
readln
end.

function StrComp(p, q: PChar): Integer;
begin
  while (p^<>#0) and (p^=q^) do begin Inc(p); Inc(q); end;
  scmp:=Ord(p^)-Ord(q^);
end;
 
var
  s: String; dummy: Char;
  w: array [1..255 div 2] of PChar;
  p: PChar;
  n, i, j: Integer;
begin
  {s:='Я учусь программировать на языке Турбо-Паскаль';}
  Write('Строка: '); ReadLn(s);
  n:=0; p:=@s[1]; (p+Length(s)+1)^:=#0;
  while p^<>#0 do begin
    while p^=' ' do Inc(p);
    if p^=#0 then Break;
    Inc(n); w[n]:=p;
    while not (p^ in [#0,' ']) do Inc(p);
    if p^=#0 then Break;
    p^:=#0; Inc(p);
  end;
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if StrComp(w[i],w[j])>0 then begin
        p:=w[i]; w[i]:=w[j]; w[j]:=p;
      end;
  for i:=1 to n do Write(w[i],' ');
  ReadLn;
end.

uses strings;
var
  s: String; dummy: Char;
  w: array [1..255 div 2] of PChar;
  p: PChar;
  n, i, j: Integer;
begin
  {s:='Я учусь программировать на языке Турбо-Паскаль';}
  Write('Строка: '); ReadLn(s);
  n:=0; p:=@s[1]; (p+Length(s)+1)^:=#0;
  while p^<>#0 do begin
    while p^=' ' do Inc(p);
    if p^=#0 then Break;
    Inc(n); w[n]:=p;
    while not (p^ in [#0,' ']) do Inc(p);
    if p^=#0 then Break;
    p^:=#0; Inc(p);
  end;
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if StrComp(w[i],w[j])>0 then begin
        p:=w[i]; w[i]:=w[j]; w[j]:=p;
      end;
  for i:=1 to n do Write(w[i],' ');
  ReadLn;
end.