Дана строка, состоящая из слов, разделенных пробелом. Вывести строку, состоящую из этих же слов, расположенных в алфавитном порядке

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
const
  //Разделители слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
  //Наибольшее количество слов.
  M = 100;
var
  S : String;
  Arr : array[1..M] of String; //Массив слов.
  i, j, k, Len, LenW : Integer;
begin
  //Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  //Если после переключения русские буквы показываются неверно,
  //следует открыть системное меню консольного окна - щелчком мыши в левом
  //верхнем углу окна консоли и выбрать:
  //Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    Len := Length(S);
    LenW := 0; //Длина очередного слова.
    j := 0; //Индекс для массива слов.
    for i := 1 to Len do begin //Перебор символов строки.
      if not (S[i] in D) then begin //Если символ не является разделителем.
        Inc(LenW); //Учитываем очередную букву в длине слова.
        //Отслеживаем конец слова и добавляем его в массив.
        if (i = Len) or (S[i + 1] in D) then begin
          Inc(j);
          Arr[j] := Copy(S, i - LenW + 1, LenW);
          LenW := 0; //Сброс длины слова.
        end;
      end;
    end;
 
    //Теперь сортируем массив по неубыванию (нестрогому возрастанию).
    //Сортировка методом вставок.
    for i := 1 to j do begin
      k := i;
      S := Arr[k];
      while (k > 1) and (Arr[k - 1] > S) do begin
        Arr[k] := Arr[k - 1];
        Dec(k);
      end;
      Arr[k] := S;
    end;
 
    //Распечатка результата.
    if j > 0 then begin
      Writeln('Перечень слов в алфавитном порядке:');
      for i := 1 to j do begin
        if i > 1 then Write(', ');
        Write(Arr[i]);
      end;
      Writeln;
    end else
      Writeln('В тексте нет слов.');
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

procedure TForm1.Button1Click(Sender: TObject);
const
  //Разделители слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
  //Наибольшее количество слов.
  M = 100;
var
  S : String;
  Arr : array[1..M] of String; //Массив слов.
  i, j, k, Len, LenW : Integer;
begin
  S := Memo1.Text;
 
  Len := Length(S);
  LenW := 0; //Длина очередного слова.
  j := 0; //Индекс для массива слов.
  for i := 1 to Len do begin //Перебор символов строки.
    if not (S[i] in D) then begin //Если символ не является разделителем.
      Inc(LenW); //Учитываем очередную букву в длине слова.
      //Отслеживаем конец слова и добавляем его в массив.
      if (i = Len) or (S[i + 1] in D) then begin
        Inc(j);
        Arr[j] := Copy(S, i - LenW + 1, LenW);
        LenW := 0; //Сброс длины слова.
      end;
    end;
  end;
 
  //Теперь сортируем массив по неубыванию (нестрогому возрастанию).
  //Сортировка методом вставок.
  for i := 1 to j do begin
    k := i;
    S := Arr[k];
    while (k > 1) and (Arr[k - 1] > S) do begin
      Arr[k] := Arr[k - 1];
      Dec(k);
    end;
    Arr[k] := S;
  end;
 
  //Распечатка результата.
  Memo2.Clear;
  if j > 0 then begin
    Memo2.Lines.Add('Перечень слов в алфавитном порядке:');
    S := '';
    for i := 1 to j do begin
      if i > 1 then S := S + ', ';
      S := S + Arr[i];
    end;
    Memo2.Lines.Add(S);
  end else
    Memo2.Lines.Add('В тексте нет слов.');
end;