задачка на матрицы Опции

[keeply]

Помогите пожалуйста найти ошибки в моей программе.
Задача:
Дана целочисленная матрица размера M*N. Найти номер последней из ее строк, содержащих только четные числа. Если таких строк нет, то вывести ноль.
C - булевская переменная, принимает значения в зависимости от четности элементов в строке,
chet - номер строки., содержащей только четные числа.

С:=false;
for i:=1 to m do
for j:=1 to n do
begin
if not odd(a[i,j]) then 
begin
c:=true; ichet:=i;
end;
end;
if C then writeln('0') else writeln( ichet);