Код який реалізує цю функцію:

program MaxArrayElement;

var

 arr: array[0..7] of real; // масив з 8 дійсних чисел

 i: integer; // лічильник для проходження по елементах масиву

 max: real; // змінна для зберігання максимального елемента масиву

begin

 // заповнюємо масив

 arr[0] := 5.4;

 arr[1] := -2.1;

 arr[2] := 10.0;

 arr[3] := 8.7;

 arr[4] := 3.14;

 arr[5] := -9.8;

 arr[6] := 7.2;

 arr[7] := 1.5;

 // ініціалізуємо максимальний елемент першим елементом масиву

 max := arr[0];

 // проходимо по всіх елементах масиву та знаходимо максимальний

 for i := 1 to 7 do

 begin

   if arr[i] > max then

     max := arr[i];

 end;

 // виводимо знайдений максимальний елемент на екран

 writeln('Найбільший елемент масиву: ', max);

end.

Пояснення:
Цей код спочатку заповнює масив деякими дійсними числами, а потім проходить по всіх його елементах, порівнюючи їх зі збереженим максимальним елементом та, якщо знайдений елемент більший за максимальний, замінює його на знайдений. На кінці програма виводить знайдений максимальний елемент на екран.