Задача с матрицей

[bonys91]

Написать программу решения задачи
Дана квадратная матрица N*N.подсчитать кол-во четных элементов в данной матрице.
Помогите пожалуйста подскажите где ошибки!!!!
program zadacha;
var a:array[1..n,1..n] of real;
i,j,n,k:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
writeln ('vvedite element massiva');
readln(a[i,j]);
end;
k:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j] mod 2=0 then
k:=k+1;
writeln (k);
readln;
end.

[IT-man]

program zadacha;
var a:array[1..n,1..n] of integer;
i,j,n,k:integer;
begin
k:=0;
for i:=1 to n do
for j:=1 to n do
begin
writeln ('vvedite element massiva');
readln(a[i,j]);
if a[i,j] mod 2=0 then
k:=k+1;
end;
writeln (k);
readln;
end.