Найти номер максимального и минимального из введённых с клавиатуры 10 элементов паскаль (массивы)

Var 
a : array [1..10] of integer;
i, max, min:integer;
Begin
min:=999999999;
max:=-999999999;
for i:=1 to 10 do
begin
readln (a[i]);
if a[i]>max then max:=i;
if a[i]<min then min:=i;
end;
writeln('max index=', max);
writeln('min index=', min);
end.