Написать программу, которая в одновременном массиве заданным вводом данных с клавиатуры находит индекс максимального элемента массива. На языке 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.