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

uses crt;
const nmax=5;
var a: array [1..nmax,1..nmax] of integer;
    i,j,k,n: byte;
begin
repeat
write('n='); readln(n);
until n in [1..nmax];
writeln('Исходная матрица');
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        a[i,j]:=random(20)-8;
        write(a[i,j]:4);
        end;
    writeln;
    end;
writeln('Номера строк, все элементы которых четны:');
for i:=1 to n do
    begin
    k:=0;
    for j:=1 to n do
        if a[i,j] mod 2=0 then inc(k);
    if k=n then write(i,', ');
    end;
readln (n);
end.

Program matrixx;
const
  maxSize=10;
type
  Tmatrix=array[1..maxSize,0..maxSize] of integer;
var
  a:Tmatrix;
  i,j,g,tmp,m,n,jmin:integer;
begin
  repeat
    write('Введите количество строк матрицы, не более ',maxSize,'=');
    readln(n);
  until (n>=1) and (n<=maxSize);
  repeat
    write('Введите количество столбцов матрицы, не более ',maxSize,'=');
    readln(m);
  until (m>=1) and (m<=maxSize);
  randomize;
  writeln('Исходная матрица');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(100);
          write(a[i,j]:4);
        end;
      writeln;
    end;
  for i:=1 to n do
    begin
      jmin:=1;
      for j:=2 to m do
        if a[i,j]<a[i,jmin] then
          jmin:=j;
      a[i,0]:=a[i,jmin];
    end;
  writeln;
  for j:=1 to n-1 do
    for i:=1 to n-j do
      if a[i,0]<a[i+1,0] then
        for g:=0 to m do
          begin
            tmp:=a[i,g];
            a[i,g]:=a[i+1,g];
            a[i+1,g]:=tmp;
          end;
  writeln('Полученная матрица');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:4);
      writeln;
    end;
  readln;
end.