Вводятся размеры матрицы, состоящей из целых чисел и её элементы. Составить вектор количества чисел Фибоначчи в строках — Pascal(Паскаль)

program dl;

var
  m: array [1 .. 100, 1 .. 100] of integer;
  k: array [1 .. 100] of integer;
  i, j, n, kol: integer;

begin
  write('Vvedite N (razmer matricy): ');
  readln(n); { считываем размер матрицы }
  for i := 1 to n do
    for j := 1 to n do
    begin
      write('M[', i, ',', j, ']=');
      readln(m[i, j]);
    end; { считываем САМУ матрицу }

  for i := 1 to n - 2 do
  begin
    kol := 0;
    for j := 1 to n do
      if m[i, j] = m[i + 2, j] - m[i + 1, j] then
        inc(kol); { здесь  определяем является ли число - Фибонначи }
    k[i] := kol;
  end;

  for i := 1 to n do
  begin
    writeln;
    for j := 1 to n do
      write(m[i, j], ' '); { выводим на экран Марицу }
  end;
  writeln;
  writeln;
  writeln('Kol-vo cisel FIBONACI v kajdoi strore');
  for i := 1 to n do
    writeln(i, ')= ', k[i]); { выводим РЕЗУЛЬТАТ к каждой строке }

  readln;

end.