Найти разность между min и max элементами матрицы

program pr;
const n=5; m=3;
type mass=array[1..n,1..m] of integer;
var a:mass;
min, max, k:integer;
   procedure Vvod (Var x:mass);
   Var i,j:integer;
   begin
   for i:=1 to n do
    for j:=1 to m do
    x[i,j]:=random(100);
    end;
    procedure PrintD (z:mass);
    var i,j:integer;
         begin
        for i:=1 to n do
        for j:=1 to m do
                writeln;
        end;
        function MaxC (y:mass; max:integer):integer;
            var i,j:integer;
     begin
        for i:=1 to n do
    for j:=1 to m do
    begin
          if a[i,j]>max then
          max:=a[i,j];
          end;
     end;
       function MinC (y:mass; min:integer):integer;
           var i,j:integer;
     begin
        for i:=1 to n do
    for j:=1 to m do
    begin
          if a[i,j]<min then
          min:=a[i,j];
     end;
     end;
        Begin
        Vvod(a);
        Print(a);
        MaxC(a, a[1,1]);
        writeln (max);
        writeln;
        MinC(a,a[1,1]);
        writeln (min);
        writeln;
        k:=max-min;
        writeln(k);
        End.

const
  Rows = 5;
  Cols = 3;
begin
  Randomize;
  var a : array [1..Rows, 1..Cols] of Integer;
  var minval := Integer.MaxValue;
  var maxval := Integer.MinValue;
  WriteLn('Массив заполнен случайными числами от 0 до 99:');
  for var Row := 1 to Rows do
    begin
      for var Col := 1 to Cols do
        begin
          a[Row, Col] := Random(100);
          Write(a[Row, Col]:3);
          if minval > a[Row, Col] then minval := a[Row, Col]
          else if maxval < a[Row, Col] then maxval := a[Row, Col];
        end;
      WriteLn;
    end;
  WriteLn('Разность между min и max его элементами = ', minval - maxval);
end.