Не могу справится в Паскале с сортировкой!!!

[Irin@]

Задача:
Пусть дана строка, в которой между словами находится по одному пробелу. Переставить слова по возрастанию в лексикографическом порядке.

[Рустам]

...
var
massivslov : array [1..100] of string;
s,sub,sq : string;
m,k : byte;
begin
num:=0;
write ('s= '); readln(s);
s:=s+' ';
write ('sub= '); readln(sub);
repeat
m:=pos(' ',s);
sq:=copy(s,1,m-1);
k:=pos(sub,sq);
if k<>0 then begin num:=num+1; massivslov[num]:=sq;
delete (s,1,m);
until m=0;
...
а дальше сортируй и выводи в строку по порядку...

[capta1n]

program prog1;
var
 str1,str2 : string;
 a : array [1..50] of string[15];
 min,buf : string[15];
 i,k,l,j : byte;
begin
  writeln ('Enter string: ');
  readln (str1);
  str2:=str1+' ';
  i:=0;
  k:=1;
  while (str2<>'') and (k<>0) do
  begin
    while str2[1]=' ' do delete (str2,1,1);
    inc(i);
    k:=pos(' ',str2);
    if k>1 then a[i]:=copy(str2,1,k-1);
    delete (str2,1,k)
  end;

  for k:=1 to i-1 do
  begin
    min:=a[k];
    l:=k;
    for j:=k+1 to i do
     if a[j]<min then
     begin
       min:=a[j];
       l:=j
     end;
    buf:=a[k];
    a[k]:=a[l];
    a[l]:=buf
  end;

  for k:=1 to i do writeln (a[k]);
  readln
end.

[Irin@]

Спасибочки!!! Целую в щечку))

[Irin@]

Напишите пожалуйста комментарии к задаче Пожалуйста)))