Дан двухмерный массив "у" с размерностью n x m если все элементы строки четные, то вывести порядковый номер строки. в паскале написать программу

Var
  y:array[1..999, 1..999] of integer;
  i, j, n, m:integer;
  chet:boolean;

begin
  randomize;
  readln(n, m);
  //Рандомно заполняем и выводим двумерный массив числами от 0 до 100
  for i:=1 to n do
  begin
    for j:=1 to m do begin
      y[i, j]:=random(101);
      write(y[i, j],' ');
    end;
    writeln;
  end;
  writeln;
  for i:=1 to n do
  begin
    chet:=true;
    for j:=1 to m do
      if y[i, j] mod 2 <> 0 then
        chet:=false;
    if chet = true then
      write(i, ' ');
  end;
end.