Дан массив целых чисел a : array[1.20] of integer – напишите функцию возвращающую номер минимального элемента

var
a: array [1..20] of integer;
N: integer;   
 min: integer;
  minind: integer;
function minel(min,minind,N: integer): integer;
begin
  min := a[1];
  minind := 1;
  for var i:=2 to N do
    if a[i]<min then 
    begin
      min := a[i];
      minind := i;
    end;
    writeln('Минимальный номер: ',minind);
end;
 
begin
write('Введите количество элементов в массиве: ');
readln(N);
write('Введите элементы массива: ');
for var i:=1 to N do
read(a[i]);
minel(min,minind,N);
 
end.

program ex;
uses crt;
const N=20;
type vector=array[1..n]of integer;
var a:vector;
    i,m:integer;
 
function minimum(a:vector; m:integer):integer;
var i,min,nomer:integer;
begin
min:=a[1];
nomer:=1;
for i:=1 to m do
if (a[i]<min)then
   begin
   min:=a[i];
   nomer:=i;
   end;
minimum:=nomer;
end;
 
begin
write('введите количество элементов массива: ');readln(m);
for i:=1 to m do
begin write('введите элемент: ');readln(a[i]);end;
write('массив: ');
for i:=1 to m do
write(a[i],' ');
writeln();
write('номер минимального элемента: ',minimum(a,m));
end.