Ответ:

const

N = 20; (здесь вводится размерность массива!)

var

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

max1 : integer;

nomer : integer;

i : integer;

begin

max1 := a[1];

for i := 1 to N do

if (a[i] > max1) then

begin

max1 := a[i];

nomer := i;

end;

max1 и nomer это наибольший элемент массива и его порядковый номер. используйте их дальше.

end.