Заполнить матрицу числами Фибоначчи из заданного сегмента чисел, записанными в порядке возрастания

const
  m = 6;
  n = 5;
var
  c, d, f, t, i, j, k, p, z: integer;
  a: array[1..m,1..n] of integer;
  b: array[1..m*n] of integer;
begin
  write('c = ');
  readln(c);
  write('d = ');
  readln(d);
  f := 0;
  t := 1;
  repeat
    f := f + t;
    t := f - t
  until f >= c;
  p := 0;
  while (p < m * n) and (f <= d) and (MaxInt - t >= f) do
    begin
      inc(p);
      b[p] := f;
      f := f + t;
      t := f - t
    end;
  if p > 0 then
    begin
      k := 1;
      i := 1;
      z := 1;
      for j := 1 to n do
        begin
          repeat
            a[i,j] := b[k];
            inc(k);
            if k > p then k := 1;
            i := i + z
          until (i > m) or (i < 1);
          z := -z;
          i := i + z
        end;
      writeln('Матрица A:');
      for i := 1 to m do
        begin
          for j := 1 to n do write(a[i,j]:9);
          writeln
        end
    end
  else writeln('Чисел Фибоначчи не найдено')
end.

const
  m = 6; //размер матрицы по вертикали
  n = 5; //размер матрицы по горизонтали
var
  c, d, f, t, i, j, k, p, z: integer;
  //c, d - диапазон чисел
  //f, t - переменные для чисел Фибоначчи
  //i, j, k - счётчики
  //p - количество чисел Фибоначчи, попадающие в диапазон [c, d]
  //z - направлениек заполнения столбцов: 1 - сверзу вниз, -1 - снизу вверх
  a: array[1..m,1..n] of integer; //матрица
  b: array[1..m*n] of integer; //массив для чисел Фибоначчи
begin
  write('c = ');
  readln(c); //ввод нижней границы диапазона
  write('d = ');
  readln(d);  //ввод верхней границы диапазона
  f := 0; //начальные значения расширенного ряда Фибоначчи: f = F(0) = 0
  t := 1; //t = F(1) = 1
  repeat //*** цикл нахождения минимального числа Фибоначчи, попадающего в диапазон [c, d]
    f := f + t; //F(n) = F(n-1) + F(n-2)
    t := f - t //F(n-1) = F(n) - F(n-2)
  until f >= c; //*** завершаем цикл при нахождении минимального F(n) >= c
  p := 0; //количество чисел Фибоначчи в диапазоне [c, d], пока 0
  while (p < m * n) and (f <= d) and (MaxInt - t >= f) do //*** цикл поиска чисел Фибоначчи в диапазоне [c, d]
    //пока числа помещаются в массив И
    //число Фибоначчи не более верхней границы d И
    //число Фибоначчи укладывается в диапазон чисел integer, выполняем...
    begin //...ищем числа и помещаем их в массив
      inc(p); //увеличиваем количество найденных чисел Фибоначчи
      b[p] := f; //помещаем уже найденное число в массив для чисел Фибоначчи
      f := f + t; //следующее число Фибоначчи
      t := f - t //предыдущее число Фибоначчи
    end;
  if p > 0 then //@@@ если числа Фибоначчи в диапазоне [c, d] найдены, то...
    begin //...заполняем матрицу числами Фибоначчи
      k := 1; //номер первого найденного числа
      i := 1; //начальный индекс в столбце матрицы
      z := 1; //пока заполнение сверху вниз
      for j := 1 to n do //### цикл по столбцам матрицы
        begin
          repeat //>>> повторяем...
            a[i,j] := b[k]; //записываем число Фибоначчи из массива в матрицу
            inc(k); //следующий номер числа в массиве
            if k > p then k := 1; //если следующий номер больше количества чисел, то номер = 1
            i := i + z //продвигаемся по столбцу
          until (i > m) or (i < 1); //>>> ...пока столбец не кончится
          z := -z; //изменяем направление заполнения столбца
          i := i + z //корректируем значение начального индекса столбца
        end; //### конец цикла по столбцам матрицы
      writeln('Матрица A:'); //печать матрицы
      for i := 1 to m do //цикл по строкам
        begin
          for j := 1 to n do write(a[i,j]:9); //цикл по столбцам: печать элементов строки, ширина печати элемента 9 позиций
          writeln //перевод печати на следующую строку
        end
    end
  //@@@ иначе, если числа Фибоначчи в диапазоне [c, d] НЕ найдены, то...
  else writeln('Чисел Фибоначчи не найдено') //...печатаем сообщение об этом
end.