program MaxElement;
var
A: array[1..10] of Integer;
i, maxElement: Integer;
begin
// Заполняем массив случайными числами
Randomize;
for i := 1 to 10 do
begin
A[i] := Random(100);
Write(A[i], ' ');
end;

// Находим наибольший элемент массива
maxElement := A[1];
for i := 2 to 10 do
begin
if A[i] > maxElement then
maxElement := A[i];
end;

// Выводим на экран наибольший элемент
Writeln;
Writeln('Наибольший элемент массива: ', maxElement);
end.