program findMax;

var
a: array[1..10] of integer;
i, imax: integer;

begin
imax := 1;

// заполняем массив случайными значениями от 0 до 99
randomize;
for i := 1 to 10 do
begin
a[i] := random(100);
writeln('a[', i, '] = ', a[i]);
end;

// ищем наибольший элемент массива
for i := 2 to 10 do
begin
if a[i] > a[imax] then
imax := i;
end;

writeln('Наибольший элемент a[', imax, '] = ', a[imax]);
end.