Найти количество чисел не кратных 3-м каждой строки матрицы

const
  n = 10;
var
  a: array[1..n, 1..n] of integer;
  z: array[1..n] of integer;
  i, j: integer;
begin
  randomize;
  writeln('Matrix:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(100);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  writeln('Array Z:');
  for i := 1 to n do
  begin
    z[i] := 0;
    for j := 1 to n do
      if a[i, j] mod 3 <> 0 
        then inc(z[i]);
    write(z[i]:4);
  end;
  readln;
end.

    writeln(i,'-th row: ',z[i]:4);

USES CRT;
const
n=10;
var
a:array [1..n, 1..n] of integer;
z: array [1..n] of integer;
i,j: integer;
begin
clrscr;
randomize;
writeln('Matrix');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write (a[i,j]:4);
end;
writeln;
end;
writeln('Array Z:');
for i:=1 to n do
begin
z[i]:=0;
for j:=1 to n do
if a[i,j]mod 3<>0
then inc(z[1]);
write (z[i]:4);
end;
readln;
end.