{* Замены в строке 4 *}

Unit PAS27933;
Interface
Implementation
Begin
 writeln('После каждого четвертого символа поставить точку и удалить последние "лишние" символы');
End.

Program pas27933;

Uses pas27933.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  S    : String;
  s1   : String;
  s2   : String;
  i    : integer;
  Last : integer;
Begin
  Write('Введите строку : ');
  Readln(s);
  Last := 4;
  While Last < Length(S) Do
  Begin
    s1[0] := chr(Length(s) - Last); {s1[0] - длина строки}
    For i := Last + 1 To Length(S) Do {копируем в строку s1 элементы строки s}
      s1[i - Last] := S[i]; {с Last+1 до последнего. Last - номер символа, после}
    s2[0] := chr(Last); {которого будет вставлена точка}
    For i := 1 To Last Do {строка s2 - символы строки s, стоящие после элемента}
      s2[i] := S[i]; {с номером last}
    If Length(s1) < 4 Then {если отстаток строки, т.е. правая часть меньше}
      s := s2 + '.'
    Else {4, то ставим точку и "выбрасываем" этот остаток}
      s := s2 + '.' + S1 + '.';
    Last := Last + 5; {Last - следующий элемент, после которго ставить точку}
  End;
  Writeln(s);
  readln; {* Ждем нажатия Enter *}
End.