{* Добавление пробелов в строку *}

Unit DOBAVLPROB;
Interface
Implementation
Begin
 writeln('Добавление пробелов в строку после знаков препинания, если они там отсутствуют. ');
End.

Program pas38664;

Uses dobavlprob.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  s : String;
  c : char;
  i : byte;
Begin
  write('String: ');
  readln(s);
  i := 1;
  Repeat          c := s[i];
    If ((c = '.')Or(c = ', ')Or(c = '!')Or(c = '?')) And (s[i + 1]' ') Then
      s := copy(s, 1, i) + ' ' + copy(s, i + 1, length(s) - i);
  i := i + 1;
  Until (i > = length(s));
  writeln('String: ', s);
  readln
End.