Program Lection5Var;
Uses Crt;
Var
S1,S2,S,N:String;
I,R,Len,Position: Integer;
Symbol: Byte;
  Begin
    Repeat
      Writeln('Введите строку с клавиатуры. Удалите все символы!');
      Write('Введите строку: ');
      Readln(S);
      i := 1;
    If Len = 0 Then
      Writeln('Символов не найдено, повторите ввод.');
  Until Len > 0;
  Begin
    Repeat
      If copy(S,i,2)=' ' Then
      S := copy(S,1,i) + copy(S,i,+2,Length(S))
    Else
      i := i + 1;
    Until (i > length(S));
    Writeln('Ответ: ',S);
    Readln
  End;
End.