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

[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);

[volvo]

ichet := 0;
for i:=1 to m do begin
  only_even := true;
  for j := 1 to n do
    only_even := only_even and (not odd(a[i, j]));

  if only_even then ichet := i;
end;

writeln(ichet);

[Guest]

Спасибо большое :D :D :D