Заполнить двумерный массив n*n числами с клавиатуры и сосчитать количество чисел

program zz1;
const n=5; //задаем n
var a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(20)+1; //наполняем массив случайными числами от 1 до 20

for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4); //выводим приобретенный массив на экран
writeln;
end;

for i:=1 to n do
for j:=1 to n do
if a[i,j] mod 3 = 0 then k:=k+1; //проверяем, если элемент массива делится на три, то считаем его

writeln;
write(Количество частей кратных трем - ,k); //выводим ответ
end.