Описать функцию Min(a,n) вещественного типа находящую минимальный элемент массива А, состоящего из N вещественных чисел. С помощью этой функции найти минимальный элементы массивов A,B,C размера NA NB NC соответственно — Pascal(Паскаль)

unit minimum;
interface
const nmax=100;
type mas=array[1..nmax] of real;
procedure Vvod(var a:mas;var n:byte;c:char);
function Min(a:mas;n:byte):real;
implementation
procedure Vvod;
var i:byte;
begin
writeln('Массив ',c);
repeat
write('Размер массива до ',nmax,' =');
readln(n);
until n in [1..nmax];
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:5:2);
 end;
writeln;
writeln;
end;
function Min;
var i:byte;
    mn:real;
begin
mn:=a[1];
for i:=1 to n do
if a[i]<mn then mn:=a[i];
Min:=mn;
end;
end.

uses crt,minimum;
var a,b,c:mas;
    na,nb,nc:byte;
begin
clrscr;
Vvod(a,na,'A');
Writeln('Минимум=',Min(a,na):0:2);
writeln;
Vvod(b,nb,'B');
Writeln('Минимум=',Min(b,nb):0:2);
writeln;
Vvod(c,nc,'C');
Writeln('Минимум=',Min(c,nc):0:2);
readln
end.