Подсчитать количество элементов одномерного массива, которые совпадают со своим номером и при этом кратны 3

uses crt;
const n=10;
var a     : array[1..n] of integer;
    i,kol : integer;
begin
  kol:=0;
  randomize;
  for i:=1 to n do begin
    a[i]:=random(10)+1;
  end;
  writeln('Исходный массив');
  for i:=1 to n do begin
    if (a[i]=i) and (a[i] mod 3=0) then kol:=kol+1;
    write(a[i]:3);
  end;
  writeln;
  writeln('Количество элементов ',kol);
end.

uses crt;
const m=5;
      n=5;
var a : array[1..m, 1..n] of integer;
    i,j,max,sum,num : integer;
begin
  max:=0; sum:=0; num:=1;
  randomize;
  writeln('Исходный массив');
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=random(10)+1;
      write(a[i,j]:3);
    end;
    writeln;
  end;
  for i:=1 to m do begin
    for j:=1 to n do begin
      sum:=sum+a[i,j];
    end;
    if sum>max then begin
      max:=sum;
      num:=i;
    end;
    sum:=0;
  end;
  writeln('Сумма элементов равна ',max);
  writeln('Номер строки c максимальной суммой элементов= ',num);
end.

uses crt;
const m=3;
      n=3;
var a : array[1..m, 1..n] of integer;
    i,j,k : integer;
    flag: boolean;
begin
  flag:=true; k:=1;
  for i:=1 to m do begin
    for j:=1 to n do begin
      writeln('Введите элемент массива');
      read(a[i,j]);
    end;
  end;
  
  for i:=1 to m do begin
    for j:=1 to n do begin
      write(a[i,j]:3,' ');
    end;
    writeln;
  end;
  
  while k<=n do begin
 
    for i:=1 to m do begin
      for j:=1 to n do begin
        if a[i,k] mod 2<>0 then flag:=false;
      end;
    end;
    if flag=true then writeln('Столбец № ',k,' - четный');
    k:=k+1;
    flag:=true;
  end;
end.