Выдать номера строк двумерного массива, элементы которых образуют арифметическую прогрессию - Turbo Pascal

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

Помогите пожалуйста с программой:Выдать номера строк двумерного массива, элементы которых образуют арифметическую прогрессию

Решение задачи: «Выдать номера строк двумерного массива, элементы которых образуют арифметическую прогрессию»

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

k:=0;
for i:=1 to m do
 begin
  f:=1;
  j:=2;
  while(j<n)and(f=1) do
  if a[j]-a[j-1]<>a[j+1]-a[j] then f:=0
  else inc(j);
  if f=1 then
   begin
    k:=1;
    write(i,' ');
  end;
 end;
if k=0 then write('Таких строк нет');

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

В данном коде на Turbo Pascal происходит следующее:

Переменная k инициализируется значением 0.
Затем происходит цикл for, который выполняется от 1 до m.
Внутри цикла объявлены две переменные: f и j. Переменная f инициализируется значением 1, а переменная j — значением 2.
Затем идет условие, которое проверяет, что j меньше n и f равно 1. Если это условие выполняется, то происходит проверка на равенство разностей между соседними элементами массива a[j] и a[j-1], и a[j+1] и a[j]. Если эти разности не равны, то значение переменной f сбрасывается в 0, иначе значение переменной j увеличивается на 1.
Если значение переменной f равно 1, то переменная k инициализируется значением 1, и происходит запись в выходной поток значения i (номера строк).
После завершения цикла for, если значение переменной k равно 0, то в выходной поток записывается строка Таких строк нет. Таким образом, данный код выводит номера строк двумерного массива, элементы которых образуют арифметическую прогрессию.