Найти номер max элемента массива

Program prim3;

uses crt;

var i, n, r, max, min, imax, imin:integer;

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

begin

clrscr;

randomize;

write ('число элементов n = ') ;

readln (n) ;

for i:=1 to n do

begin

a[i]:=random (45) - 22;

{Получаем случайные числа и выводим их на экран.}

write (a[i],' ') ;

end;

{За начальный максимум (минимум) берем первый элемент массива.}

min:=a[1]; max:=a[1];

for i:=1 to n do

begin

{Если найдется элемент, меньший MIN, то MIN будет равен этому элементу. Одновременно запоминаем индекс промежуточного минимума.}

if a[i]<=min then

begin

min:=a[i]; imin:=i;

end;

{Если найдется элемент, больший МАХ, то МАХ будет равен этому элементу. Одновременно запоминаем индекс промежуточного максимума.}

if a[i]> = max then

begin

max:=a[i]; imax:=i;

end;

end;

{Печатаем минимальный элемент и его индекс.}

writeln (min,' номер', imin) ;

{Печатаем максимальный элемент и его индекс.}

writeln (max, ' номер', imax) ;

readkey;

end.