Дан одномерный массив с индексами от 0 до 14, найти индекс минимального и максимального элементов массива

(числа вводятся с клавиатуры)

var

a: array [0 ... 14] of integer;

min, max, i: integer;

begin

for i : = 0 to 14 do

readln (a[i]) ;

for i : = 0 to 14 do

begin

if (a[min] > a[i]) then

min : = i;

if (a[max] < a[i]) then

max : = i;

end;

writeln ('min: a[', min, ']', #13, 'max: a[', max, ']') ;

end.