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

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