паскаль. Как найти пробел в строке и удвоить его?

[Xchel]

паскаль. Как найти пробел в строке и удвоить его?

[newerow1989]

var s:string;
    i:integer;
begin
   Write('s = '); Readln(s);
   For i:=Length(s) downto 1 do
      If s[i]=' ' then
         Insert(' ',s,i);
   Writeln(s);
   Readln;
end.