Дана последовательность от 1 до 30 слов. Вывести все слова в алфавитном порядке

Program sort_slova;
 
Type simv = 'a'..'z';
     mas = array[1..31,1..2] of integer;
     
Var s1,s2:simv;
    a:mas;
    stroka,sl1:string;
    i,n,j,n_min,stek,l:integer;
     
BEGIN
  Write ('Vvedite stroku ');
  Read (stroka);
  n:=1;
  a[1,1]:=1;//адрес начала первого слова
  sl1:='';
  for i:=1 to length(stroka) do begin
    if (stroka[i]<>'.') And (stroka[i]<>',') then sl1:=sl1 + stroka[i]//поиск слов
    else  begin
      inc(n);
      a[n,1]:=i+1;//адрес начала следующего слова 
      a[n-1,2]:= length(sl1);//длинна предыдущего слова
      sl1:='';
    end;
  end;
  for i:=1 to n-1 do begin
    s1:= stroka[a[i,1]];//min
    n_min:=i;
    for j:=i+1 to n-1 do begin
      s2:= stroka[a[j,1]];
      if s2<s1 then begin//поиск минимального значения
        s1:= s2;
        n_min:= j        
      end;
    end;
    if i<> n_min then begin//меняем местами адреса слов по алфавиту
      stek:= a[i,1];//адрес
      a[i,1]:= a[n_min,1];
      a[n_min,1]:= stek;
      stek:= a[i,2];//длинна
      a[i,2]:= a[n_min,2];
      a[n_min,2]:= stek;
    end;
  end;
  for i:=1 to n-1 do begin
    l:=a[i,1];//адрес первого символа
    for j:=0 to a[i,2]-1 do Write (stroka[l+j]);//остальные символы
    if i<> n-1 then Write (',')
    else Write('.')
  end;
END.

VAR s, g: string;
tmp: array[1..100] of string;
p, t, m: integer;
BEGIN
s := 'petr,ivan,isaak,myflon,feda,anton.';
while pos(',', s) <> 0 do
begin
p:=p+1;
tmp[p]:=copy(s,1,pos(',', s)-1);
delete(s,1,pos(',', s));
end;
p:=p+1;
tmp[p]:=s;
for t := 1 to p-1 do
   for m := t+1 to p do
      if tmp[ t ] > tmp[ m ] then begin
g := tmp[ t ];
tmp[ t ] := tmp[ m ];
tmp[ m ] := g;
end;
 
for t := 1 to p do
writeln('slowo N',t,': ', tmp[t]);
  readln;
end.