В прямоугольной таблице указать строку, содержащую максимальный нечетный элемент - PascalABC.NET

const m=4;
      n=3;
var
  a:array[1..n,1..m] of integer;
  i,j,k,l:integer;
begin
  k:=Integer.MinValue;
  writeln('Введите таблицу (',n,'x',m,') по строкам:');
  for i:=1 to n do begin
    write('Введите строку ',i,':');
    for j:=1 to m do begin
      read(a[i,j]);
      if odd(a[i,j]) and (a[i,j]>k) then begin
        k:=a[i,j];
        l:=i;
      end;
    end;
  end;
  writeln('максимальный нечетный элемент ',k,' находится в строке ',l);
end.