Описать функцию NMin(A,N) и NMax(A,N) целого типа, находящую номер минимального и максимального элемента массива A

program Project1;
type
  TArr = array[1..100] of real;
 
function NMax(A:TArr; N: integer):integer;
// Функция которая возвращает индекс элемента массива с максимальным значением.
var
  i,ind: integer;
  Max: real;
begin
  Max:= 5E-324;
  for i:= 1 to N do
   if A[i] > Max then
     begin
       Max:= A[i];
       ind:= i;
     end;
  NMax:= ind;
end;
 
function NMin(A:TArr; N: integer):integer;
// Функция которая возвращает индекс элемента массива с минимальным значением.
var
  i,ind: integer;
  Min: real;
begin
  Min:= 1.7E308;
  for i:= 1 to N do
   if A[i] < Min then
     begin
       Min:= A[i];
       ind:= i;
     end;
  NMin:= ind;
end;
 
var
 nn: integer;  // Переменная для хранения значения количества элементов массива.
 a: TArr;      // Переменная для хранения массива.
 i: integer;   // Вспомогательная переменная для организации цикла.
 
begin
  Randomize;
  Write('Введите значение количества элементов: ');
  Readln(nn);
  WriteLn('Исходный массив: ');
  for i:= 1 to nn do
   begin
     a[i]:= (random(2001) - 1000)/10;
     write(a[i]:6:1);
   end;
  Writeln;
  WriteLn('Индекс элемента с максимальным значением: ',NMax(a,nn));
  WriteLn('Индекс элемента с минимальным значением: ',NMin(a,nn));
  readln;
end.