const
n = 10;
var
i:integer;
mas : array[1..n] of integer;
max_num, max_index: integer;
begin
writeln('введите элементы массива');
for i:=1 to n do readln(mas[i]);

for i := 2 to n do
if mas[i] > max_num then begin
max_index := i;
max_num := mas[i];
end;
writeln('Максимальное число ',max_num,' находится на позиции ',max_index);
end.

Объяснение - 

константы:

n- это сколько чисел будет в твоём массиве

max_num - максимальное число 

max_index - позиция числа

Функции :

for i:=1 to n do readln(mas[i]); - вводим числа в массив

for i := 2 to n do
if mas[i] > max_num then begin
max_index := i;
max_num := mas[i];
end;

ищем максимальное число и его позицию