Составьте программу по информатике которая удаляет в строке s все пробелы, и заменяет их на точки.

// PascalABC.NET 3.0, сборка 1088
var
  s:string;
  i,p:integer;
begin
  Write('Введите строку: '); ReadLn(s);
  for i:=1 to Length(s) do
    if s[i]=' ' then s[i]:='.';
  WriteLn('Результат:      ',s)
end.
 
Тестовое решение:
Введите строку: Это дело такое - тестировать   программы   !
Результат:      Это.дело.такое.-.тестировать...программы...!