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

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.