В двумерном массиве узнать в каком из столбцов все элементы кратны 5 или 7

program RABOTA;
var a:array [1..10,1..10] of integer;
     b:array [1..10,1..10] of integer;
     i,j:integer;
type n = array[1..10,1..10] of Integer;
procedure Kratnost(z:n);
  var i,j,c:integer;
  v: array[1..10] of integer;
  begin
  c:=0;
  for i:=1 to 10 do
  begin
    for j:=1 to 10 do
  begin
   if ((z[i,j] mod 5) = 0) or ((z[i,j] mod 7) = 0) then
   v[j]:=c+1;
   break;
  end;
  end;
  for i:=1 to 10 do
  if c = 10 then writeln (i,'-vipolnyaet uslovie')
  else writeln (i,'-ne vipolnyaet uslovie');
  end;
begin
  randomize;
  for i:=1 to 10 do
  begin
    for j:=1 to 10 do
    begin
      a[i,j]:=random(100)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  kratnost(a);
  writeln;
  writeln;
  for i:=1 to 10 do
  begin
    for j:=1 to 10 do
    begin
      b[i,j]:=random(100)+1;
      write(b[i,j]:4);
    end;
    writeln;
  end;
writeln;
kratnost(b);
readln;
end.

const n=10;
type
  TColumn = array [1..n] of Integer;
  TMatrix = array [1..n] of TColumn;
 
{ хотя бы один делится на 5 или 7 }
function CheckAny(const v: array of Integer): Boolean;
var i: Integer;
begin
  CheckAny:=True;
  for i:=Low(v) to High(v) do
    if (v[i] mod 5=0) or (v[i] mod 7=0) then
     Exit;
  CheckAny:=False;
end;
 
{ каждый делится на 5 или 7 }
function CheckAll(const v: array of Integer): Boolean;
var i: Integer;
begin
  CheckAll:=False;
  for i:=Low(v) to High(v) do
    if (v[i] mod 5<>0) and (v[i] mod 7<>0) then
     Exit;
  CheckAll:=True;
end;
 
...
 
  Write('Столбцы, где есть кратные 5 или 7: ');
  for i:=Low(a) to High(a) do if CheckAny(a[i]) then Write(' ',i); WriteLn;
 
  Write('Столбцы, где все кратны 5 или 7: ');
  for i:=Low(a) to High(a) do if CheckAll(a[i]) then Write(' ',i); WriteLn;