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