Напишите программу выводящую индекс наименьшего числа 3 9 1 3 5 8 5 3 6 7 6 5 4 6 1 81

var i, n, k, min:integer;

a:array[1 ... 1000] of integer;

begin

write ('Write size array: '); readln (n);

for i:=1 to n do

read (a[i]);

min:=a[1];

for i:=1 to n do

if min>a[i]

then begin min:=a[i]; k:=i; end;

writeln (k);

end.