Дана матрица А(M,N)

[Esmadjin]

Составить программу на pascalABC.NET
Дана матрица А(M,N) Составить вектор из номеров столбцов матрицы, где есть хотя бы одно число Фибоначчи.

[Esmadjin]

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

function isf(b: integer):boolean;
var x,y,z:integer
begin

if b = 1 then isf:=true
else
begin
x:=1; y:=1;z:=x+y;
while z<b do
begin
x:=y;
y:=z;
z:=x+y
end;
if b = z then isf:=true
end
end;




begin
write('введите колтчество строк:');
readln(m);
write('введите количество столбцов:');
readln(n);

for i := 1 to m do
for j := 1 to n do
begin
write('Введите a[', i, ',', j, ']=');
readln(a[i, j]);
end;
writeln;
for i := 1 to m do
for j := 0 to n do
begin
write('Введите a[', i, ',', j, ']=');
readln(a[i, j]);
end;
for i := 1 to m do
for j := 0 to n do
begin
write('Введите a[', i, ',', j, ']=');
readln(a[i, j]);
end;
begin
for j := 1 to n do
write(a[i,j]:5);
writeln;
end;
writeln;
k:=0;
for j:=1 to n do
begin
for i:=1 to m do
if isf(a[i,j]) then
begin
k:=k+1;
b[k]:=j;
break
end;
end;
if k=0 then
writeln('В матрице нет чисел Фибоначчи')
else
begin
for i:=1 to k do
write(b[i],' ')
end
end.

[digitalis]

1. Зачем 2 раза вводить одну и ту же матрицу?
2. Оформлять правильно (теги CODE, отступы) - Фибоначчи будет?
3. Функция неправильная. В каком случае она выдаст false? Только true или значение не определено.
Я бы написал примерно так:

  function isf(b: integer):boolean;
var x,y,z:integer
begin
  if b = 1 then isf:=true
  else
    begin
       x:=1;
       y:=1;
       isf := false ;
       while z <= b do
          begin
             z:=x+y ;
             if b = z then 
                begin
                  isf:=true;
                  break
                end;
             x:=y;
             y:=z;
          end;
   end;
end;