Строковые типы данных

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