процедуры и функции

uses crt;
const
  m = 4;
 
type
  Matrix = array[1..m, 1..m] of integer;
  Mar = array[1..4] of integer;
 
var
  a, c: matrix;
  b: mar;
  i, j, n: integer;
 
 
procedure RanMat(var matr: matrix);
var
  i, j: integer;
begin
  randomize;
  begin
    for i := 1 to m do
    begin
      for j := 1 to m do
        matr[i, j] := random(100);
    end;
  end;
end;
 
//Проверка на возрастание / убывание
 
procedure Prover(matr: matrix);
begin
for i:=1 to m do begin
b[i]:=1;
for j:=1 to m do begin
if (j>1) and (matr[i,j]<=matr[i,j-1]) then b[i]:=0;
end;
writeln;
end;
writeln;
for i:=1 to n do begin
write(b[i]:3);
end;
end;
 
 
procedure Print(var matr: Matrix);
var
  j, i: integer;
begin
  for i := 1 to m do
  begin
    for j := 1 to m do
      write(matr[i, j]:4);
    writeln;
  end;
end;
 
 
begin
  writeln('Первая матрица: ');
  RanMat(a);
  Print(a);
  Prover(a);
  writeln('Вторая матрица: ');
  RanMat(c);
  Print(c);
  Prover(c);
end.