Найти номер максимального и минимального из введённых с клавиатуры 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]