Дан массив a (n) указать номер первого наибольшего элемента если…

var a: array[1… 100] of integer; i, n,max: integer; begin write ('n='); readln (n); max: =1; for i: =1 to n do begin write ('a[', i, ']='); readln (a[i]); if a[max] < a[i] then max: =i; end; writeln ('Индекс наибольшего элемента — ', max); end.