Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Отфильтровать из строки числа, паскаль.

program Num_Word;

  {Отфильтровать из строки числа паскаль}
var
  {s_Str исходная строка}
  s_Str: string;
  i, j, n: integer;
  i_MasNum: array[1..10] of integer;
begin
  j := 1;
  s_Str := 'The  4 green grass4 covered the123 whole glade7';
  n := length(s_Str);
  for i := 1 to n do

    //проверка числа в строке
    if (s_Str[i] >= '0') and (s_Str[i] <= '9') then
    begin
      val(s_Str[i], i_MasNum[j]);
      j := j + 1;
    end;

  WriteLn('Исходная строка: ', s_Str);
  for i := 1 to 10 do
    WriteLn('Число: ', i_MasNum[i]);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:

Отфильтровать из строки числа, паскаль.