Найти разность между min и max элементами матрицы - PascalABC.NET - Ответ 9255926

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.