Ошибка времени выполнения: Индекс находился вне границ массива - PascalABC.NET (126754)

Формулировка задачи:

program ggghf;
var k,i:integer;s:string;
begin
s:='abzcdefgzz';
for i:=1 to length(s) do begin
 k:=ord(s[i]);
 if k<100 then delete(s,i,1);
end;
writeln(s);
end.

Решение задачи: «Ошибка времени выполнения: Индекс находился вне границ массива»

Листинг программы

program ggghf;
 
var
  k, i: integer;s: string;
 
begin
  s := 'abzcdefgzz';
  for i := length(s) downto 1 do 
  begin
    k := ord(s[i]);
    if k < 100 then delete(s, i, 1);
  end;
  writeln(s);
end.

Объяснение кода листинга программы

В данном коде происходит обработка строки с использованием цикла for, который проходит по каждому символу строки в обратном порядке. Для каждого символа выполняется проверка его кода в Unicode с помощью функции ord, и если код символа меньше 100, то этот символ удаляется из строки с помощью функции delete. В конце выполнения кода выводится на экран полученная строка. Вероятно, ошибка времени выполнения связана с выходом за границы массива при удалении символа из строки.