в паскале:
Задана строка символов, которая состоит из 3-х слов розделенных пробелом. Получить новую строку, где слова будут розделены 3-мя пробелами.

Program p1;
 uses crt;
 var S,S2 : String;
     i : integer;
begin
S2:='';
 write('inpus string');readln(S);
 for i:=1 to length(S) do
  if S[i]=' ' then S2:=S2+'   ' else S2:=S2+S[i];
 writeln(S2)
end.

Огромное спасибо!!!!!!