Найти минимальное значение и индекс максимального значения массива - PascalABC.NET

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

1)Найти минимальное значение 2)Номер элемента с максимальным значением Помогите пожалуйста! Срочно! Pascal ABC.net

Решение задачи: «Найти минимальное значение и индекс максимального значения массива»

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

var i,n,min:integer;
A:array[1..100] of integer;
begin
 writeln('Введите количество элементов массива');
 readln(n);
 writeln('Ввеедите элемменты в строчку');
 for i:=1 to n do read(A[i]);
 min:=A[1];
 for i:=1 to n do
 if A[i]<=min then min:=A[i];
 writeln('Min = ', min);
 end.

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

Объявляются три переменные: i, n, min типа integer (целое число).
Объявляется массив A типа array[1..100] of integer (массив A размером 100, каждый элемент которого является целым числом).
Выводится сообщение Введите количество элементов массива и считывается количество элементов массива в переменную n.
Выводится сообщение Введите элементы в строчку и считываются элементы массива A в цикле от i=1 до n.
Инициализируется переменная min значением первого элемента массива A.
В цикле от i=1 до n сравнивается каждый элемент массива A с текущим значением переменной min. Если элемент меньше или равен min, то min обновляется этим элементом.
Выводится сообщение Min = и значение переменной min.
Код завершается.