Модули. Дана матрица. Найти номера строк, все элементы которых делятся на 3 без остатка

var
  n, q, j, i: integer;
  a: array[1..1000] of boolean;
 
begin
  read(n);
  for i := 1 to n do
    for j := 1 to n do
    begin
      read(q);
      if q mod 3 = 0 then a[i] := true;
    end;
  writeln;
  for i := 1 to 1000 do if a[i] then write(i, ' ');
end.

unit myunit;
 
interface
uses crt;
const n=3;
type matr=array[1..n,1..n] of integer;
procedure Vvod(c: char; var z:matr);
procedure Vyvod(c: char;var z:matr);
function Allmod3 (ns: byte; z: matr): boolean;
procedure VyvodNS (z: matr);
 
implementation
 
procedure Vvod(c: char; var z:matr);
var i,j:byte;
begin
writeln('Заполняем матрицу ',c);
for i:=1 to n do
    for j:=1 to n do
        begin
        write(c,'[',i,',',j,']=');
        readln(z[i,j]);
        end;
end;
 
procedure Vyvod(c: char;var z:matr);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to n do
    begin
    for j:=1 to n do
        write(z[i,j]:4);
    writeln;
    end;
end;
 
function Allmod3 (ns: byte; z: matr): boolean;
var j:byte;
    b: boolean;
begin
b:=true;
for j:=1 to n do
    if z[ns,j] mod 3<>0 then b:=false;
Allmod3:=b;
end;
 
procedure VyvodNS (z: matr);
var i,k: byte;
begin
writeln('Строки, в ктороых все элементы делятся на 3');
for i:=1 to n do
    if  Allmod3 (i,z) then
        begin
        write(i,' ');
        inc(k);
        end;
if k=0 then writeln('отсутствуют');
end;
 
end.

uses crt,myunit;
var a:matr;
 
begin
Vvod('A',a);
Vyvod('A',a);
VyvodNS (a);
readln
end.