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

Формулировка задачи:

Есть задача "Дан массив целых чисел 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.

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

Листинг программы

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.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные:

a - массив целых чисел размером 20;
i и m - переменные для цикла for, которые принимают значения от 1 до 20;
min и nomer - переменные для хранения текущего минимального элемента и его номера соответственно. Функция minimum принимает массив a и его размер m в качестве параметров. Внутри функции инициализируются переменные min и nomer значением первого элемента массива a и единицы соответственно. Затем происходит цикл for, который выполняется от 1 до m. Внутри цикла проверяется, является ли текущий элемент массива a меньше текущего значения переменной min. Если это так, то значение min и nomer обновляются, чтобы хранить текущее значение и номер минимального элемента. По завершении цикла, функция возвращает значение nomer. В основной части кода считывается размер массива m с помощью функции readln(). Затем, внутри цикла for, считываются элементы массива a с помощью функции readln(). После этого выводится сообщение с элементами массива a и его номером минимального элемента, который вычисляется с помощью функции minimum(a,m).