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

uses crt;
const rzd=[',',';',':','!','?','.',' '];{разделители можно добавить, зависит от текста}
var  s,ss:string;
     k,i,j:byte;
     s1: array[1..100] of string;
begin
clrscr;
write('s = ');
readln(s);
s:=s+','; {добавим запятую в конец}
for i:=length(s) downto 1 do
  begin
    if s[i] in rzd then s[i]:=',';{заменим разделители на запятые}
    while pos(',,',s)>0 do   {если подряд 2 запятые}
    delete(s,pos(',,',s),1); {1 удаляем}
  end;
k:=0;{размер массива}
while pos(',',s)>0 do {пока есть запятые}
 begin
  ss:=copy(s,1,pos(',',s)-1);{копируем первое слово в массив}
  if length(ss)<3 then
   begin
    k:=k+1; {считаем}
    s1[k]:=ss;
   end;
  delete(s,1,pos(',',s));{удаляем его}
 end;
if k=0 then write('Слов из менее 3 букв нет!')
else
 begin
  {сортировка обменом по возрастанию=алфавиту}
  for i:=1 to k-1 do
  for j:=i+1 to k do
  if s1[i]>s1[j] then
   begin
    s:=s1[i];
    s1[i]:=s1[j];
    s1[j]:=s;
   end;
  writeln('Слова из менее 3 букв по алфавиту:');
  for i:=1 to k do
  write(s1[i],' ');
 end;
readln
end.