все, програмка готова.
Если интересно:
Оффтоп
Program str;
Var
k,s:string;l,n,i:integer;
Begin
writeln('Vvedite stroku s=');
readln(s);
write('Rezultat: (');
for i:=1 to length(s) do
if (s[i+1]=' ') then
begin
write(s[i]);
write(')');
end
else
begin
if (s[i]=' ') then
write(' (')
else
write(s[i]);
end;
write(')');
readln;
end.