Дан массив из 8 целочисленных элементов. элементы вводятся с клавиатуры (все элементы различны). найти минимальный элемент численного массива и его порядковый номер.

Program n1;
var a:array[1..8] of integer; 
     min,i:integer;
begin
writeln('Введите массив из 8 целочисленных элементов:');
read(a[1]); 
min:=1; 
for i:=2 to 8 do
 begin
  read(a[i]);
  if a[i]<a[min] then min:=i;
 end;

writeln('Минимальный элемент данного массива: ',a[min]);
writeln('Его порядковый номер: ',min);
end.