Функция проверки на кратность.

{Проверьте, верно ли, что количество строк матрицы А порядка n,
в которой все числа нечетные, кратно заданному числу Х.}
program bred;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
const
  MaxN=3;
 
type
  MyAr = array [1..MaxN,1..MaxN] of integer;
 
//Вводим матрицу.
procedure inputmas(var A:MyAr);
var i,j:integer;
 
begin
  writeln('Введите матрицу порядка - ',MaxN);
    for i := 1 to MaxN do
      for j := 1 to MaxN do
        read(a[i,j]);
end;
 
//Проверяем строки на четность.
function parity(var A:MyAr; k : integer):boolean;
var r : integer;
  begin
    parity := true;
        for r := 1 to MaxN do
          if odd(A[k,r]) then parity := false;
  end;
 
//Объявляем переменные.
var
  s,i,x:integer;
  A:MyAr;
 
begin {main}
//Подключаем русскую кодировку.
  setconsolecp(1251);
  setconsoleoutputcp(1251);
//Вызов процедуры.
  inputmas(a);
//Вводим Х.
  Write('Введите Х '); Readln(x);
//Находим количество строк со всеми нечетными элементами.
  s:=0;
  for i := 1 to MaxN do
    if not parity(A,i) then s := s + 1;
//Для красоты.
  writeln('Количество строк только с нечетными элементами = ',s);
//Проверка на кратность и вывод.
  if s mod x = 0
  then writeln('Количество строк кратно X')
  else writeln('Количество строк некратно Х');
readln
end.