Отыскать наибольший элемент массива и его индекс.A[i]:=-50+random(101)

program maximum;

const

n=5;

var

a: array [1..n]of integer;

i, max, maxi: integer;

begin

randomize;

max:=0;

writeln('Мвссив');

for i:=1 to n do  

begin

 a[i]:=random(101)-50;

 write(a[i],' ');

end;

writeln;

for i:=1 to n do  

if a[i]gt; max then

begin

max:=a[i];

maxi:=i;

end;

writeln('Наивеличайший элемент массива: ',max);  

writeln('Величайший индекс элемента массива: ',maxi);  

end.