{Задать массив из 10 случайных чисел в диапазоне [32,96]. Вывести минимальное число массива и его индекс.}

Const n=10;
var a:array[1..n] of integer;
i,min,k:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(65)+32;
 write(a[i]:4);
 end;
writeln;
min:=a[1];
k:=1;
for i:=2 to n do
  if a[i]writeln(min=a[,k,]=,min);
end.

Пример:
  50  55  72  95  57  87  64  92  42  49
min=a[9]=42