Программа убирает пробелы после запятой — Pascal(Паскаль)

var
s:string;
i:integer;
begin
writeln('Введите текст');
readln(s);
    for i:=length(s) downto 1 do
    if (s[i]=',') and (s[i+1]=' ') then delete(s,i+1,1);
    WriteLn(s);
end.