В каждом из массивов найти наименьшее значение и умножить на него все элементы массивов

Const nmax=100;
Type mas=array[1..nmax] of real;
Var A,B:mas;
    n,m:integer;
    minA, minB: real;
Procedure InPut(Var A:mas;Var n:integer;ch:char);
Var i:integer;
Begin
    Repeat
      write('Введите количество элементов массива ',ch,': ');
      readln(n);
    Until (n>0)and(n<=nmax);
    For i:=1 to n do
     A[i]:=random*10;
End;
Procedure OutPut(A:mas;n:integer;s:string);
Var i:integer;
Begin
    writeln(s);
    For i:=1 to n do
     write(A[i]:7:2);
    writeln;
End;
Function Min(A:mas;n:integer);
Var i:integer;
    mn:real;
Begin
    mn:=A[1];
    For i:=2 to n do
     if A[i] < mn then mn := A[i];
    Min := mn;
End;
Procedure Mult(Var A:mas;n:integer;m:real);
Var i:integer;
Begin
    For i:=1 to n do
     A[i]:=A[i]*m;
End;
Begin
   Input(A, n, 'A');
   OutPut(A, n, 'Исходный массив A');
   minA := Min(A, n);
   writeln('Min в массиве A = ',minA:0:2);
   Mult(A, n, minA);
   OutPut(A, n, 'Полученный массив A');
   readln;
   Input(B, m, 'B');
   OutPut(B, m, 'Исходный массив B');
   minB := Min(B, m);
   writeln('Min в массиве B = ',minB:0:2);
   Mult(B, m, minB);
   OutPut(B, m, 'Полученный массив B');
   readln;
End.

type
  eproc = procedure(var n: Integer; var p: Integer);
procedure ei(var a: array of Integer; f: eproc; var p: Integer);
var i: Integer;
begin
  for i:=Low(a) to High(a) do f(a[i], p);
end;
{$F+}
procedure ewrt(var n: Integer; var p: Integer); begin Write(' ',n) end;
procedure emul(var n: Integer; var p: Integer); begin n:=n*p end;
procedure emin(var n: Integer; var p: Integer); begin if n<p then p:=n end;
procedure ernd(var n: Integer; var p: Integer); begin n:=1+Random(p) end;
const
  n=10; m=10;
var
  a: array [1..n] of Integer;
  b: array [1..m] of Integer;
  p: Integer;
begin
  Randomize; 
  p:=99;         ei(a,ernd,p); ei(b,ernd,p);
  Write('A =');  ei(a,ewrt,p); WriteLn;
  Write('B =');  ei(b,ewrt,p); WriteLn;
  p:=a[1];       ei(a,emin,p); ei(a,emul,p);
  p:=b[1];       ei(b,emin,p); ei(b,emul,p);
  Write('A''='); ei(a,ewrt,p); WriteLn;
  Write('B''='); ei(b,ewrt,p); WriteLn;
end.