Найти минимальный и максимальный элемент массива

program qq;
const n=4;
type mas=array[1..n] of integer;
function NMax(a:mas; n:integer):integer;
var 
max,min,i: integer;
begin 
max:=a[i];
min:=a[i];
for i:= 1 to n do 
begin 
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
Writeln ('Максимальный элемент массива=',max,'');
Writeln ('Минимальный элемент массива=',min,'');
end;
var 
a : array [1..n] of integer;
k,i: integer;
begin 
for i:=1 to n do
begin 
write ('введите ' ,i, ' элемент массива');
readln (a[i]);
begin
  k:=NMax(a,n);
end;
writeln (k);
end;
end.

function Min(A : array of Real; N : Integer) : Integer;
begin
  Result := 0;
  for var i := 1 to N-1 do
    if A[i] < A[Result] then
      Result := i;
end;
 
function Max(A : array of Real; N : Integer) : Integer;
begin
  Result := 0;
  for var i := 1 to N-1 do
    if A[i] > A[Result] then
      Result := i;
end;
 
begin
  var N := ReadLnInteger('Введите размер массива n =');
  var A : array of Real;
  SetLength(A, N);
  for var i := 1 to N do
    A[i-1] := ReadLnReal('Введите A[' + i.ToString + '] =');
  
  WriteLn(' Минимальный элемент массива A[', Min(A, N)+1, '] = ', A[Min(A, N)]);
  WriteLn('Максимальный элемент массива A[', Max(A, N)+1, '] = ', A[Max(A, N)]);
end.