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

program massiv;
type
Tarr=array[1..20] of real;
var
i,n:integer;
max,min:real;
a:tarr;
   function min_max(a1:tarr; dlinaN:integer; VAR min,max:real):real;
var
i:integer;
   begin
   min:=a1[1];
   max:=a1[1];
   for i:=1 to dlinaN do
   if a1[i]<min then min:=a1[i]
   else
   if a1[i]>max then max:=a1[i];
   end;
begin
writeln('Vvedite razmernost massiva');
read(n);
writeln('Vvedite ',n,' chisel');
for i:=1 to n do
read(a[i]);
min_max(a,n,min,max);
writeln('min=',min:3:3,'  max=',max:3:3);
{Это для одомерного массива}
end.

program massiv;
type
Tarr=array[1..20,1..20] of real;
var
i,j,n,m:integer;
max,min:real;
a:tarr;
   function min_max(a1:tarr; dlinaN,dlinaM:integer; VAR min,max:real):real;
var
i,j:integer;
   begin
   min:=a1[1,1];
   max:=a1[1,1];
   for i:=1 to dlinaN do
   for j:=1 to dlinaM do
   if a1[i,j]<min then min:=a1[i,j]
   else
   if a1[i,j]>max then max:=a1[i,j];
   end;
begin
writeln('Vvedite razmernost massiva');
read(n,m);
writeln('Vvedite ',n*m,' chisel');
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
min_max(a,n,m,min,max);
writeln('min=',min:3:3,'  max=',max:3:3);
end.
{Для двумерного массива}