Дана строчка, состоящая из русских слов, разделенных пробелами (одним либо несколькими).

program Project1;
nbsp;
const
nbsp;nbsp;//Разделители слов.
nbsp;nbsp;D = [., ,, :, ;, !, ?, -, , 9, 10, 13];
var
nbsp;nbsp;S, SRes : String;
nbsp;nbsp;i, Len, Pos1 : Integer;
begin
nbsp;nbsp;repeat
nbsp;nbsp;nbsp;nbsp;Writeln(Задайте строку:);
nbsp;nbsp;nbsp;nbsp;Readln(S);
nbsp;
nbsp;nbsp;nbsp;nbsp;Len := Length(S);
nbsp;nbsp;nbsp;nbsp;SRes := ;
nbsp;nbsp;nbsp;nbsp;Pos1 := 0;
nbsp;nbsp;nbsp;nbsp;//Перебор символов строчки в направлении справа-налево.
nbsp;nbsp;nbsp;nbsp;for i := Len downto 1 do begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;//Пропускаем разделители.
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if S[i] in D then Continue;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;//Отслеживаем конец слова.
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if (i = Len) or (S[i + 1] in D) then Pos1 := i;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;//Отслеживаем начало слова.
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if (i = 1) or (S[i - 1] in D) then begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;//Добавление пробела.
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if SRes lt;gt; then SRes := Sres + ;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;//Добавляем слово к строке.
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;SRes := SRes + Copy(S, i, Pos1 - i + 1);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;nbsp;nbsp;end;
nbsp;
nbsp;nbsp;nbsp;nbsp;Writeln(Ответ:);
nbsp;nbsp;nbsp;nbsp;Writeln(SRes);
nbsp;
nbsp;nbsp;nbsp;nbsp;Writeln(Повторить - Enter. Выход - любой знак + Enter.);
nbsp;nbsp;nbsp;nbsp;Readln(S);
nbsp;nbsp;until S lt;gt; ;
end.