Найти последний минимальный элемент массива - Free Pascal

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

В одномерном массиве А (10) найти минимальный элемент, если их несколько значений, то последний по номеру в массиве. Помогите, пожалуйста)

Решение задачи: «Найти последний минимальный элемент массива»

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

var a:array[1..10] of integer;
    n,i,imn:integer;
begin
randomize;
n:=10;
writeln('Исходный массив');
imn:=1;
for i:=1 to n do
 begin
  a[i]:=random(10);
  if a[i]<=a[imn] then imn:=i;
  write(a[i]:3);
 end;
writeln;
writeln('Минимальный элемент=',a[imn],' его последний номер=',imn);
readln
end.

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

Объявляется массив a типа array[1..10] of integer, переменные n, i, imn типа integer.
В цикле for i от 1 до n (n=10) генерируется случайное число для элемента массива a[i] с помощью функции random(10).
С помощью условного оператора if сравнивается текущий элемент массива a[i] с минимальным значением a[imn]. Если текущий элемент меньше или равен минимальному, то обновляется значение переменной imn.
С помощью цикла for i выводится на экран значение каждого элемента массива a в формате 3 цифры.
После цикла выводится символ н.
Выводится сообщение с минимальным значением элемента массива a[imn] и его последним номером imn.
Программа ожидает ввода пользователя с помощью функции readln.