Из элементов трех матриц сформировать четвертую

program ex1;
uses crt;
const N1=10;N2=10;
type matrix=array[1..N1,1..N2] of integer;
var n,m,max,min:integer;
    a,b,c,d:matrix;
procedure RandomMatrix(var a:matrix; var n,m:integer);
var i,j:integer;
begin
for i:=1 to n do
 for j:=1 to m do
  a[i,j]:=random(11);
  randomize;
end;
 
procedure PrintMatrix(a:matrix; n,m:integer);
var i,j:integer;
begin for i:=1 to n do
       begin for j:=1 to m do
        write(a[i,j]:7);
        writeln;
        end;
end;
 
procedure maxmin(c:matrix;var max,min:integer;n,m:integer);
var i,j:integer;
begin
max:=c[1,1];
min:=c[1,1];
for i:=1 to n do
  for j:=1 to m do
  begin 
  if (c[i,j]>max) then max:=c[i,j];
  if (c[i,j]<min) then min:=c[i,j];  
  end;
end;
 
procedure form_d(var d:matrix;a,b:matrix;n,m,max,min:integer);
var i,j:integer;
begin
for i:=1 to n do
  for j:=1 to m do
  d[i,j]:=(a[i,j]-b[i,j])*max*min;
end;
 
begin
write('Введите кол-во строк матриц ');
readln(n);
write('Введите кол-во столбцов матриц ');
readln(m); writeln();
RandomMatrix(a,n,m);
RandomMatrix(b,n,m);
RandomMatrix(c,n,m);
writeln('Матрица A:');
PrintMatrix(a,n,m);
writeln('Матрица B:');
PrintMatrix(b,n,m);
writeln('Матрица C:');
PrintMatrix(c,n,m);
maxmin(c,max,min,n,m);
form_d(d,a,b,n,m,max,min);
writeln('Матрица D:');
PrintMatrix(d,n,m);
end.