Массив: Проверить, кратно ли колличество строк в матрице, где все элементы четные, заданномучислу

{$APPTYPE CONSOLE}
 
uses
  windows,
  SysUtils;
 
const
  n=4;
type
  telem=Integer;
  mas=array[1..n] of telem;
  matr=array[1..n] of mas;
procedure Putin (var a:matr);
var i,j:Integer;
begin
  for i:=1 to n do
  begin
    for j:=1 to n do
      read(a[i,j]);
    writeln;
  end;
end;
procedure Prov (var a:matr);
var i,j:Integer;
    c:telem;
begin
  c:=0;
  for i:=1 to n do
  for j:=1 to n do
      if a[i,j]mod 2=0 then Inc(c);
      if c>0 then Writeln('Все элементы должны быть нечётными')
      else
       begin
          for i:=1 to n do
          begin
            for j:=1 to n do
            write(a[i,j],' ');
            writeln;
          end;
          c:=30;
      end;
end;
procedure Print (var a:matr);
var i,j:Integer;
    c:telem;
begin
  if c=0 then
  begin
  for i:=1 to n do
  for j:=1 to n do
      write(a[i,j],' ');
   end;
end;
 
var a:matr;
    c,k:telem;
begin
  setconsoleoutputcp(1251);
  repeat
  Putin(a);
  Prov(a);
  until c=30;
  read(k);
  if n mod k=0 then Writeln('Кратно')
           else Writeln('Не кратно');
end.

repeat
  Putin(a);
  Prov(a);
until c=30;

    c:telem;

program Project2;
       {Çàäà÷à: Ïðîâåðüòå âåðíî ëè, ÷òî êîëëè÷åñòâî ñòðîê ìàòðèöû À(n*n),
        â êîòîðîé âñå ÷èñëà íå÷¸òíûå, êðàòíî çàäàííîìó ÷èñëó õ}
 
{$APPTYPE CONSOLE}
 
uses
  windows,
  SysUtils;
 
const
  n=4;
type
  telem=Integer;
  mas=array[1..n] of telem;
  matr=array[1..n] of mas;
 
var a:matr;
    c,x:telem;
 
procedure Putin (var a:matr); {ïðîöåäóðà ââîäà ìàòðèöû ñ êëàâèàòóðû}
var i,j:Integer;
begin
  for i:=1 to n do
      begin
        for j:=1 to n do read(a[i,j]);
        writeln;
      end;
end;
 
procedure Prov (var a:matr); {Ïðîöåäóðà ïðîâåðêè íå÷¸òíîñòè ýëåìåíòîâ ìàòðèöû}
var i,j:Integer;
begin
  c:=0;
  for i:=1 to n do
  for j:=1 to n do
      if a[i,j]mod 2=0 then Inc(c);
      if c>0 then Writeln('Âñå ýëåìåíòû äîëæíû áûòü íå÷¸òíûìè')
             else begin
                    for i:=1 to n do
                        begin
                          for j:=1 to n do
                              write(a[i,j],' ');
                              writeln;
                        end;
                    c:=30;
                  end;
end;
 
 
begin
  setconsoleoutputcp(1251);
  repeat
  Putin(a);
  Prov(a);
  until c=30;
 
  Writeln('Ââåäèòå ÷èñëî');
  read(x);                    {Ââîä ÷èñëà}
  if n mod x=0 then Writeln('Êðàòíî') {Ïðîâåðêà êðàòíîñòè êîëëè÷åñòâà ñòðîê ââåä¸ííîìó ÷èñëó}
           else Writeln('Íå êðàòíî');
           Readln;
end.

read(x);                    {Ввод числа}

readln(x);                    {Ввод числа}