Дан двухмерный массив "у" с размерностью 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.