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

program matrica;
uses crt;
var
a:array[1..10,1..10]of integer;
i,j,n,m,k:integer;
function sum:boolean;
begin
sum:=false;
  for j:=1 to m do
 
  if a[i,j]mod 2=0 then sum:=true
  else
    begin
      sum:=false;
      break;
    end;
end;
begin
k:=0;
write('Ââåäåì çíà÷åíèå ìàòðèöû , ðÿäêè n= ');
read(n);
write(' ñòîëáöû  m=');
read(m);
for i:=1 to n do
 
  for j:=1 to m do read(a[i,j]);
 
for i:=1 to n do
 
  if(sum) then begin inc(k);write(i:3);end;
if k=0 then write('Takih strok net!');
end.

program matrica;
uses
  crt;
const
  n_max=100;
  m_max=100;
var
  a:array[1..n_max,1..m_max]of integer;
  i,j,n,m,k:integer;
 
function sum:boolean;
begin
  sum:=false;
  for j:=1 to m do
    if a[i,j] mod 2=0 then
      sum:=true
    else
      begin
        sum:=false;
        break;
      end;
end;
 
begin
  k:=0;
  write('Количество строк: ');
  readln(n);
  write('Количество столбцов: ');
  readln(m);
  for i:=1 to n do
    for j:=1 to m do
      readln(a[i,j]);
 
  clrscr;
  // вывод матрицы
  writeln('Исходная матрица:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:5);
      writeln;
    end;
 
  for i:=1 to n do
    if sum then
      begin
        inc(k);
        write('В ',i,'-й строке все элементы четные.');
      end;
  if k=0 then
    writeln('Takih strok net!');
  readln;
end.