В одномерном массиве, состоящем из n элементов, вычислить максимальный элемент и определить его номер (индекс) — Pascal(Паскаль)

uses crt;
const n=5;
var a:array[1..n]of integer;
i,max:integer;
begin  clrscr;
 randomize;
   write('Massive: ');
    for i:=1 to n do
    begin
    a[i]:=random(10)-5;
    write(a[i]:3);
     write;
     end;
     writeln;
        max:=1;
        for i:=1 to N do if a[i] > a[max] then max:=i;
         writeln('MAX= ', a[max]);
         readkey;
            end.