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

program z_array;
uses crt;
type massiv = array[1..100] of real;
var ArrayA, ArrayB, ArrayC : massiv;
    DimensionA, DimensionB, DimensionC, CounterI: byte;
 
function MaxN(ArrayM: massiv; DimensionM: byte): byte;
var MaxElement, CounterI:byte;
begin  MaxElement := 1;
for CounterI := 2 to DimensionM do
  if ArrayM[MaxElement] < ArrayM[CounterI] then
   MaxElement := CounterI;
   
  MaxN := MaxElement; 
end;
begin
 clrscr; 
 writeln('Введите количество элементов массива А'); 
 readln(DimensionA); 
 writeln('Введите количество элементов массива B'); 
 readln(DimensionB); 
 writeln('Введите количество элементов массива C'); 
 readln(DimensionC); 
 
for CounterI := 1 to DimensionA do
begin
  write('A[',CounterI,']= '); 
  readln(ArrayA[CounterI]); 
end;
 
for CounterI := 1 to DimensionB do
begin
  write('B[',CounterI,']= '); 
  readln(ArrayB[CounterI]); 
end;
 
for CounterI := 1 to DimensionC do
begin
  write('C[',CounterI,']= '); 
  readln(ArrayC[CounterI]); 
end;
 writeln; 
 writeln('Данный массив A'); 
for CounterI := 1 to DimensionA do
 write(ArrayA[CounterI]:0:2,' '); 
 writeln; 
 writeln('Номер максимального элемента массива A равен ',MaxN(ArrayA, DimensionA)); 
 
 writeln; 
 writeln('Данный массив B'); 
for CounterI := 1 to DimensionB do
 write(ArrayB[CounterI]:0:2,' '); 
 writeln; 
 writeln('Номер максимального элемента массива B равен ',MaxN(ArrayB, DimensionB)); 
 
 writeln; 
 writeln('Данный массив C'); 
for CounterI := 1 to DimensionC do
 write(ArrayC[CounterI]:0:2,' '); 
 writeln; 
 writeln('Номер максимального элемента массива C равен ',MaxN(ArrayC, DimensionC)); 
 readln; 
end.