Program z2;
var str:string;
n:integer;
b:byte;
begin
readln(str);
for n:=1 to Length(str) do begin
b:=OrdAnsi(str[n]);
if (b<192) and (b<>32) then delete(str,n,1);
end;
writeln(str);
end.
Выдает: Ошибка времени выполнения: Индекс находился вне границ массива.
Подскажите, пожалуйста, что не так
var str:string;
n:integer;
b:byte;
begin
readln(str);
for n:=1 to Length(str) do begin
b:=OrdAnsi(str[n]);
if (b<192) and (b<>32) then delete(str,n,1);
end;
writeln(str);
end.
Выдает: Ошибка времени выполнения: Индекс находился вне границ массива.
Подскажите, пожалуйста, что не так
More Questions From This User See All