// 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.
Тестовое решение:
Введите строку: Это дело такое - тестировать программы !
Результат: Это.дело.такое.-.тестировать...программы...!