Найти номера строк массива, все элементы которых нечетны

const
  nmax = 20;
var
  x: array[1..nmax, 1..nmax] of integer;
  y: array[1..nmax] of integer;
  n, m, i, j, k: integer;
  f: boolean;
begin
  repeat
    write('Ââåäèòå n, m (n, m <= ',nmax,'): ');
    readln(n,m);
  until (n in [1..nmax]) and (m in [1..nmax]);
  writeln('Ââåäèòå çíà÷åíèÿ ìàòðèöû:');
  for i:=1 to n do
    for j:=1 to m do
    begin
      write('x[',i,',',j,']=');
      readln(x[i,j]);
    end;
    
  writeln('Ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(x[i,j]:4);
    writeln;
  end;
 
  k:=0;
  for i:=1 to n do
  begin
    f:=true;
    for j:=1 to m do
      if x[i,j] mod 2=0 then f:=false;
    if f then begin
      inc(k);
      y[k]:=i;
    end;
  end;
  
  if k=0 then writeln('Íåò ñòðîê ìàññèâà, óäîâëåòâîðÿþùèõ óñëîâèþ') else
  begin
    writeln('Ïîëó÷åííûé ìàññèâ:');
    for i:=1 to k do write(y[i]:4);
  end;
  readln;
end.