Переменной S присвоить -1, если максимальный элемент матрицы А больше максимального элемента матрицы В

program ex1;
uses crt;
const N1=3;N2=3;
type matrix=array[1..N1,1..N2] of real;
var n,m,s:integer;
    a,b:matrix;
    max1,max2:real;
procedure RandomMatrix(var a:matrix);
var i,j:integer;
begin
randomize;
for i:=1 to 3 do
 for j:=1 to 3 do
  a[i,j]:=random(11)-5
end;
 
procedure PrintMatrix(a:matrix);
var i,j:integer;
begin for i:=1 to 3 do
       begin for j:=1 to 3 do
        write(a[i,j]:7:2);
        writeln;
        end;
end;
 
procedure M_ax(a:matrix;var max1:real);
var i,j:integer;
    m:real;
begin
m:=a[1,1];
for i:=1 to 3 do
for j:=1 to 3 do
if (a[i,j]>m) then m:=a[i,j];
max1:=m;
end;
 
begin 
RandomMatrix(a);
writeln('матрица А: ');
PrintMatrix(a);
writeln;
RandomMatrix(b);
writeln('матрица B: ');
PrintMatrix(b);
writeln;
M_ax(a,max1);
M_ax(b,max2);
if max1>max2 then s:=-1;
if max1<max2 then s:=1;
if max1=max2 then s:=0;
writeln('s: ',s);
end.