Ошибка времени исполненья: Индекс находился вне границ массиваКак исправить?Program A2;Var

Ошибка времени выполнения: Индекс находился вне границ массива
Как поправить?
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.