[dr-evil]

1. Обращение a[i] к двумерному массиву (матрице) неверно, надо использовать a[i,j]
2. Немного сменится алгоритм -
например можно сделать так:
for i=1 to 20 do
for j=1 to 20 do
if (a[i,j] mod 2)=0 then inc(count);
end;
writeln('Найдено ', count, 'чисел');
вот и все.

PS тока не помню, mod остаток от деления или div =)