Преобразование строки по принципу словаря. Переставить слова в алфавитном порядке

uses crt;
var s: string;
    i,j: byte;
    c: char;
begin
write('s='); readln(s);
j:=0;
while j<=length(s) do
      begin
      for i:=1 to length(s)-1 do
          if s[i]>s[i+1] then
             begin
             c:=s[i];
             s[i]:=s[i+1];
             s[i+1]:=c;
             end;
      inc(j);
      end;
write('s=',s);
readln;
end.

uses crt;
var s,sl:string;
i,j,k:integer;
a:array [1..255] of string;
 
begin
write('Stroka: ');readln(s);
s:=s+' '; sl:='';
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i] else
       if length(sl)>0 then
          begin
          inc(j);
          a[j]:=sl;
          sl:='';
          end;
k:=0;
while k<=j do
begin
for i:=1 to j-1 do
    begin
    if a[i][1]>a[i+1][1] then
       begin
       s:=a[i];
       a[i]:=a[i+1];
       a[i+1]:=s;
       end;
    end;
inc(k);
end;
for i:=1 to j do
    write(a[i],' ');
readln;
end.