program MaxElementIndex;
const
N = 10;
var
A: array[1..N] of Integer;
maxElement, maxIndex, i: Integer;
begin
// заполняем массив случайными числами
Randomize;
for i := 1 to N do
begin
A[i] := Random(100);
Write(A[i], ' ');
end;
// инициализируем переменные
maxElement := A[1];
maxIndex := 1;
// находим максимальный элемент и его индекс
for i := 2 to N do
begin
if A[i] > maxElement then
begin
maxElement := A[i];
maxIndex := i;
end;
end;
// выводим результат
Writeln;
Write('Максимальный элемент: ', maxElement, ' на позиции ', maxIndex);
end.

Программа создает массив случайных чисел, находит максимальный элемент в массиве и выводит его значение и индекс.