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

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]>max then     max:=i;  end;writeln('Индекс максимального элемента массива =', max);end.