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

uses crt;
var a:array[1..100] of string;
s,t,w:string;
i,k,j:integer;
begin
clrscr;
write('s = ');
readln(s);
for i:=1 to length(s) do
begin
if s[i]<>',' then
t:=t+s[i];
if (s[i]=',') or (i=Length(s)) then
begin
if (t<>'') then
begin
inc(k);
a[k]:=t;
end;
t:='';
end;
end;
for i:=1 to k do
for j:=1 to k do
begin
if a[i]<a[j] then
begin
w:=a[i];
a[i]:=a[j];
a[j]:=w;
end;
end;
writeln;
writeln;
for i:=1 to k do
begin
write(a[i],',');
end;
readln;
end.

Program laba;
var
   st: string;
   stmas,stmas2: array[1..30] of string;
   i,j,poz: integer;
Begin
 
 
 
writeln('Vvedite ot 1 do 30 slov ot 1 do 5 bukv v slove'); readln(st);
 
 
repeat
 i:=i+1;
 if (pos(',',st)<>0) or (pos('.',st)<>0) then
  if pos(',',st)<>0 then
   begin
    poz:=pos(',',st);
    stmas[i]:=copy(st,1,poz);
    delete(st,1,poz);
   end else
   begin
    poz:=pos('.',st);
    stmas[i]:=copy(st,1,poz);
    delete(st,1,poz);
   end;
until pos('.',st)=0;
 
 
for i:=1 to 30 do
 for j:=1 to 30 do
  begin
   if copy(stmas[i],1,1)>copy(stmas[j],1,1) then
    stmas2[i]:=copy(stmas[i],1,length(stmas[i]));
 
  end;
 
 
 
for i:=1 to 30 do
write(stmas2[i]);
 
 
readln; End.