Ошибка времени выполнения: Индекс находился вне границ массива
Как исправить?
Program A2;
Var s:string;
i:integer;
Begin
Readln(s);
For i:= 1 to length(s) do
If s[i]=',' then delete (s, i, 1);
Writeln(s);
End.

var s:string;

i:integer;

begin

readln(s);

for i:= length(s) downto 1 do

if s[i]=',' then delete (s, i, 1);

writeln(s);

end.