Помогите написать комментария к задаче. Pleas!!!

[Irin@]

Здравствуйте!!! Не могу понять решение задачи, напишите пожалуйста ход действий(комментария) Пожалуйста

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.

[Jean-Esther]

var str1,str2 : string;
var a : array [1..50] of string[15];
var min,buf : string[15];
var 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 {если пробел есть в тексте (из кода видно, что таковой будет при непустой строке, так как последный пробел находится на последней позиции). Кроме того, в лубом случае k<>1}
delete (str2,1,k)
    then a[i]:=copy(str2,1,k-1); {в отдельную ячейку помещаем слово от начала до первого пробела невключительно}
end;

for k:=1 to i-1 do {проход по всем выписанным словам (последнее слово всегда пустое за счет специфического положения инкремента в цикле)}
begin
  min:=a[k]; {извлекаем слово}
  l:=k; {запоминаем 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]; {иными словами, этот цикл по k есть не что иное как сортировка прямым выбором}
  a[l]:=buf
end;

for k:=1 to i do writeln (a[k]); {вывод на печать}
readln {последный запрос пользователю}
end.