Используйте процедуры ввода и вывода элементов матрицы

procedure vvod (var matr:array[1..n, 1..n] of real; n:integer);
var
  i,j:integer;
begin
  writeln('Заполните матрицу');
  for i:=1 to n do
    for j:=1 to n do
       read(matr[i,j]);
  writeln('Матрица заполнена');
  writeln('Для продолжения нажмите Enter');
  readln;
end;

procedure vivod ( matr:array[1..n, 1..n] of real; n:integer);
var
  i,j:integer;
begin
  for i:=1 to n do
    begin
      for j:=1 to n do
        read(matr[i,j]:3:2);
      writeln;
    end;
end;

Program one;
uses crt;
const n=10;
type mas=array [1..n,1..n] of integer;
var a:mas;
i,j,x:real;
Begin
Procedure vvod(a:mas;m:integer):integer;
clrscr;
writeln('Введите не чётные элементы массива');
for i=1 to m do
for j=1 to m do
readln(a[i,j]);
end;
Procedure vivod(a:mas;m:integer):integer;
Begin
for i=1 to m do;
begin
for j=1 to m do;
readln(A[i,j]:3:2);
writeln;
end;
end;
Function k(a:mas;m:integer):integer;
var k:real;
begin
k:
for i=1 to m do
if A[i] mod 2=0 then

type mas=array [1..m,1..m]:integer

type mas=array [1..m,1..m] of integer;

Program matrica;
uses crt;
const m=10;
type mas=array [1..m,1..m] of integer;
var a:mas;
i,j,k,x:integer;
begin
procedure vvod (a:mas,m:integer):integer;
var
i,j:integer;
begin
writeln('Заполните матрицу');
for i:=1 to m do
for j:=1 to m do
read(a[i,j]);
writeln('Матрица заполнена');
writeln('Для продолжения нажмите Enter');
readln;
end;
procedure vivod (a:mas;m:integer):integer;
var
i,j:integer;
begin
for i:=1 to m do
begin
for j:=1 to m do
read(a[i,j]:3:2);
writeln;
end;
end;
Function kratno(a:mas;m:integer):integer;
Begin
var k,i:real;
begin
writeln('Введите число k');
read(k);
for i:=1 to m do
if A[i] mod k=0 then
writeln('da');
end;
end;
end.

uses
  crt;
const
  n=4;
type
  MyArr=array[1..n,1..n]of integer;
var
  a:MyArr;
  x:integer;
{ïðîöåäóðà ââîäà}
procedure Writing(var a:MyArr;const str,col:integer);
var
  i,j:integer;
begin
  for i:=1 to str do
    for j:=1 to col do
      a[i,j]:=random(8)-4
end;
{ïðîöåäóðà âûâîäà}
procedure Print(a:MyArr; str,col:integer;ch:char);
var
  i,j:integer;
begin
  writeln('Ìàòðèöà ',ch,':');
  for i:=1 to str do
  begin
    for j:=1 to col do
      write(a[i,j]:2,' ');
    writeln
  end;
end;
{ïðîöåäóðà ïîäñ÷åòà ñòðîê}
function FindCStr(a:MyArr;str,col:integer):integer;
var
  i,j,coun:integer;
  fl:boolean;
begin
  coun:=0;
  for i:=1 to str do
  begin
    fl:=true;
    for j:=1 to col do
      if not odd(a[i,j]) then
      begin
        fl:=false;
        break
      end;
    if fl then
      inc(coun);
  end;
  FindCStr:=coun
end;
{îñíîâíàÿ ïðîãðàììà}
begin
  clrscr;
  Writing(a,n,n);
  Print(a,n,n,'A');
  writeln('Â äàííîé ìàòðèöå òàêèõ ñòðîê: ',FindCStr(a,n,n));
  writeln('Ââåäèòå ÷èñëî X:');
  readln(x);
  if (FindCStr(a,n,n) mod x = 0) and (FindCStr(a,n,n)<>0) then
    writeln('Âåðíî!')
  else
    writeln('Íå âåðíî!')
end.