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

Question

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

Answer 1

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.