Найти номер 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.