В двумерном массиве числа, кратные n, поменять приватными от деления на

Var a:array[1..20,1..20] of integer;i,j,n:integer;beginreadln(n);for i:=1 to n dofor j:=1 to n doread(a[i,j]);
for i:=1 to n dofor j:=1 to n doif a[i,j] mod n =0 then a[i,j]:=a[i,j] div n; 
for i:=1 to n do beginfor j:=1 to n dowrite(a[i,j],' ');writeln;end;end.