Ошибка происходит из-за того, что при удалении символа из строки длина строки уменьшается, что приводит к тому, что индекс выходит за границы массива.
Чтобы исправить эту ошибку, нужно изменить цикл так, чтобы он проходил по строке с конца к началу. Вот исправленный код:
Теперь цикл проходит по строке с конца к началу, и эта проблема больше не возникает.
Ошибка происходит из-за того, что при удалении символа из строки длина строки уменьшается, что приводит к тому, что индекс выходит за границы массива.
Чтобы исправить эту ошибку, нужно изменить цикл так, чтобы он проходил по строке с конца к началу. Вот исправленный код:
Program A2;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.
Теперь цикл проходит по строке с конца к началу, и эта проблема больше не возникает.