Описать функцию Min(A,N) Max(A,N)2 вещественного типа, находящую минимальный и максимальный элемент массива A, состоящего из N вещественных чисел — Pascal(Паскаль)

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
procedure Massiv(var m:mas;var x:byte;c:char);
var i:byte;
begin
writeln('Массив ',c);
repeat
write('Размер массива до ',nmax,' =');
readln(x);
until x in [1..nmax];
for i:=1 to x do
 begin
  m[i]:=random(50);
  write(m[i],' ');
 end;
writeln;
end;
function Min(m:mas;x:byte):integer;
var i:byte;
    mn:integer;
begin
mn:=m[1];
for i:=1 to x do
if m[i]<mn then mn:=m[i];
Min:=mn;
end;
function Max(m:mas;x:byte):integer;
var i:byte;
    mx:integer;
begin
mx:=m[1];
for i:=1 to x do
if m[i]>mx then mx:=m[i];
Max:=mx;
end;
var a,b,c:mas;
    na,nb,nc:byte;
begin
clrscr;
Massiv(a,na,'A');
writeln('Min=',Min(a,na),'  Max=',Max(a,na));
Massiv(b,nb,'B');
writeln('Min=',Min(b,nb),'  Max=',Max(b,nb));
Massiv(c,nc,'C');
writeln('Min=',Min(c,nc),'  Max=',Max(c,nc));
readln
end.