В строке между словами вставить вместо пробела запятую и пробел — Pascal(Паскаль)

var
i:integer;
s:string;
begin
  writeln('Vvedite');
  readln(s);
  for i:=length(s) downto 1 do
    if s[i]=' ' then insert(',',s,i);
  writeln('Resultat:= ',s);
    
end.