Сравнение матриц

Program kurs3;
uses crt;
var
a:array[1..4,1..4] of real;
c:array[1..4,1..4] of real;
b1,b2,b3,b4,i,j:integer;
begin
clrscr;
RANDOMIZE;
writeln('Первая матрица');
For i:=1 to 4 do begin
    for j:=1 to 4 do begin
    a[i,j]:=Random(10);
    write(a[i,j]:2:0);
    end;
writeln;
end;
writeln;
writeln('Вторая матрица');
For i:=1 to 4 do begin
    for j:=1 to 4 do begin
    c[i,j]:=Random(10);
    write(c[i,j]:2:0);
    end;
writeln;
end;
 
readln;
end.

uses crt;
const n=4;
type mtr=array[1..n,1..n] of integer;
procedure vvod(var a:mtr;c:char);
var i,j:integer;
begin
writeln('Введите элементы матрицы ',c,' целые числа');
for i:=1 to n do
for j:=1 to n do
 begin
  write('el[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
end;
procedure vyvod(a:mtr;c:char);
var i,j:integer;
begin
writeln('Матрица ',c);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln
 end;
end;
function max(a:mtr;k:integer):integer;
var i,mx:integer;
begin
mx:=a[k,1];
for i:=1 to n do
if a[k,i]>mx then mx:=a[k,i];
max:=mx
end;
function min(a:mtr;k:integer):integer;
var i,mn:integer;
begin
mn:=a[k,1];
for i:=1 to n do
if a[k,i]<mn then mn:=a[k,i];
min:=mn
end;
var a,c:mtr;
    b:array[1..n] of byte;
    i:integer;
begin
clrscr;
vvod(a,'A');
vvod(c,'C');
vyvod(a,'A');
vyvod(c,'C');
for i:=1 to n do
if min(a,i)>max(c,i) then b[i]:=1
else b[i]:=0;
writeln('Последовательность B:');
for i:=1 to n do
write(b[i],' ');
readln
end.

Program kurs3;
uses crt;
var
a:array[1..4,1..4] of real;
c:array[1..4,1..4] of real;
b:array[1..4] of integer;
i,j,k:integer;
begin
clrscr;
RANDOMIZE;
writeln('Первая матрица');
For i:=1 to 4 do begin
    for j:=1 to 4 do begin
    a[i,j]:=Random(10);
    write(a[i,j]:2:0);
    end;
writeln;
end;
writeln;
writeln('Вторая матрица');
For i:=1 to 4 do begin
    for j:=1 to 4 do begin
    c[i,j]:=Random(10);
    write(c[i,j]:2:0);
    end;
writeln;
end;
 for i:=1 to 4 do
  begin
     k:=0;
     for j:=1 to 4 do
       begin
          if a[i][j] > c[i][j] then inc(k);
       end;
     if k = 4 then b[i]:=1 else b[i]:=0;
  end;
for i:= 1 to 4 do
     write(b[i]:3);
readln;
end.