Как в паскале авс написать программу ,чтобы выводилась под каким номером наименьшее число

Предыдущий
вопрос Следующий
вопрос

Пример программы на Pascal:

program SmallestNumber;
var
numbers: array[1..10] of integer;
smallest: integer;
i, indexOfSmallest: integer;
begin
// Ввод чисел
writeln('Введите 10 чисел:');
for i := 1 to 10 do
begin
readln(numbers[i]);
end;
// Нахождение наименьшего числа
smallest := numbers[1];
indexOfSmallest := 1;
for i := 2 to 10 do
begin
if numbers[i] < smallest then
begin
smallest := numbers[i];
indexOfSmallest := i;
end;
end;
// Вывод номера наименьшего числа
writeln('Наименьшее число: ', smallest, ', которое находится под номером ', indexOfSmallest);
end.

Эта программа сначала запрашивает у пользователя ввод 10 чисел, затем находит наименьшее число из них и выводит его значение и номер в массиве.