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

uses crt;
const n=10;
 
function MaxNum(a:array[1..n] of real; n:integer):integer;
var i:integer;
    max:real;
begin
for i:=1 to n-1 do
         if a[i]>max then begin max:=a[i]; maxnum:=i; end;
end;
 
var a:array[1..n] of real;
    i:integer;
begin
for i:=1 to n do
    begin
         a[i]:=random(100);
         write(a[i],' ');
    end;
writeln;
writeln(maxnum(a,n),'-й элемент максимальный в данном массиве');
end.

uses crt;//подключаем библиотеку CRT
const n=10;//Объявляем константу
 
function MaxNum(a:array[1..n] of real; n:integer):integer;
{описываем локальные переменные}
var i:integer;
    max:real;
{начало подпрограммы}
begin
for i:=1 to n-1 do //цикл с параметром
         if a[i]>max then begin max:=a[i]; maxnum:=i; end;//находим максимальный элемент массива и его номер
end;
{объявляем глобальные переменные}
var a:array[1..n] of real;
    i:integer;
{начало основной программы}
begin
for i:=1 to n do
    begin
         a[i]:=random(100);//заполняем массив случайными числами
         write(a[i],' ');//выводим очередной элемент
    end;
writeln;
writeln(maxnum(a,n),'-й элемент максимальный в данном массиве');//вывод результата
end.