В возрастающем порядке напечатайте все целые числа - Pascal ABC

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

Здравствуйте! Помогите решить, заранее спасибо) В возрастающем порядке напечатать целые числа из диапазона 1.. 10000, представимые в виде n² + m², где n, m>=0

Решение задачи: «В возрастающем порядке напечатайте все целые числа»

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

var
  a: array [1..10000] of Boolean;
  m, m2, n, i: Integer;
begin
  for m:=1 to Trunc(SqRt(High(a))) do begin
    m2:=Sqr(m); n:=1;
    repeat
      i:=m2+Sqr(n); Inc(n);
      if i<=High(a) then a[i]:=True else Break;
    until False;
  end;
  for i:=Low(a) to High(a) do if a[i] then Write(' ',i); WriteLn;
end.

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

Создается переменная a, которая представляет собой массив булевых значений размером от 1 до 10000.
Затем определяются три переменные m, m2 и n, которые будут использоваться в цикле. Переменная m инициализируется значением 1, а m2 и n устанавливаются равными квадрату m.
Далее идет цикл, который выполняется для каждого значения m в диапазоне от 1 до округленного вверх значения корня из максимального значения массива a. Внутри цикла переменные m2 и n пересчитываются как квадрат m и значение n устанавливается равным 1.
Цикл повторяется, пока значение i, вычисленное как m2 + Sqr(n), не станет меньше или равно максимальному значению массива a. Если значение i попадает в диапазон массива a, то соответствующий элемент массива устанавливается в значение True. Если это не происходит, цикл прерывается с помощью оператора Break.
После завершения внутреннего цикла происходит внешний цикл, который проходит по всем элементам массива a от наименьшего до наибольшего значения. Если значение элемента массива равно True, то перед ним выводится пробел.
В конце программы выводится символ новой строки с помощью функции WriteLn.