Массив: в каждом из массивов найти разность между максимальным и минимальным элементом

Const n1=8;n2=12;n3=11;
Type mas=array[1..20] of integer;
Var H,P,C:mas;
Procedure Mass(n:integer;Var A:mas);
Var i:integer;
Begin
    For i:=1 to n do 
     Begin
      A[i]:=random(26)-10;
      write(A[i]:4);
     End;
    writeln;
End;
Function Max(A:mas;n:integer):integer;
Var i,m:integer;
Begin
    m:=A[1];
    For i:=2 to n do
     if A[i]>m then m:=A[i];
    Max:=m;
End;
Function Min(A:mas;n:integer):integer;
Var i,m:integer;
Begin
    m:=A[1];
    For i:=2 to n do
     if A[i]<m then m:=A[i];
    Min:=m;
End;
Begin
    Randomize;
    writeln('Массив H');
    Mass(n1,H);
    writeln('Разность между max and min: ',Max(H,n1)-Min(H,n1));
    writeln('Массив P');
    Mass(n2,P);
    writeln('Разность между max and min: ',Max(P,n2)-Min(P,n2));
    writeln('Массив C');
    Mass(n3,C);
    writeln('Разность между max and min: ',Max(C,n3)-Min(C,n3));
    readln;
End.