Программа: pascal abc. : дана строка, написать программу, вставляющую после каждой точки символ пробела.

Var s: string;   
     i: integer;
begin 
read(S); 
i:=1; 
while i<=length(s) do begin 
if s[i]='.' then insert(' ',s,i+1); 
inc(i); 
end;
writeln(s);
end.