СРОЧНО!!! ввести с клавиатуры массив из 5 элементов, найти в нем минимальный элемент и его номер.

var a:array [1..5] of integer; i,min,p:integer; begin for i:=1 to 5 do begin write ('Введите ',i,' элемент массива: '); readln (a[i]); end; min:=a[1]; for i:=1 to 5 do if a[i]