Написать программку, которая в одновременном массиве данным вводом данных с клавиатуры

Var  n,i,max:integer;
       a:array [1..1000] of integer;//объявляем массив
begin
  writeln('Введите количество чисел');
   readln(n);
  for i:=1 to n do begin
    readln(a[i]);
   if a[i]gt;max then
     max:=i;
  end;
writeln('Индекс наибольшего элемента массива =', max);
end.