Как сделать так, чтобы программа выводила в конце максимальный элемент, а не последний?

Program xxx;
Var a: array [1..5] of integer;
i: integer;
inputArray : array [1..5] of integer;
max : integer;

Begin
WriteLN('Дальше вам будет необходимо ввести 5 целых чисел');
For i:=1 to 5 do
Begin
WriteLN('Введите элемент массива');
ReadLN(a[i]);
End;
WriteLN('Массив a:');

For i:=1 to 5 do
WriteLN(a[i], ' ');
Begin
max:=A[i];
for i := 1 to 5 do
if max < inputArray[i] then
max := inputArray[i];
End;
WriteLN('Максимальный элемент массива ', max);
End.

Завдання  Запиши послідовність номерів карток, які задають порядок:Варіант 1а) завершення роботи за комп'ютеромб) запуску програми на виконання
Варіант 2а) підготовки комп’ютера до роботиб) коректного завершення роботи з програмою
Завдання 3. Дії з о б’єктам и  Робочого столуУ комп’ютерному класі за комп’ютерами з різними номерами сидять Світлана,Марина,Роман та Сергій. Відомо, що:- Світлана виконала затримку над деяким об’єктом:- Марина один раз клацнула лівою кнопкою миші;- Роман не встиг нічого зробити;- Сергій виконав дві дії з мишею.

#include <iostream>

int gg(int k, int p, double m)

{

p = (k >= p) ? p : p / k;

return (m * 2 * p);

}

int main()

{

int k, p;

double m;

std::cout << "Сколько котлет можно одновременно положить на сковороду ? ";

std::cin >> k;

std::cout << "Сколько минут жарится одна сторона котлеты ? ";

std::cin >> m;

std::cout << "Сколько котлет вы будете жарить ? ";

std::cin >> p;

std::cout << p << " котлет пожарятся с двух сторон минимум за " << gg(k, p, m) << " минут";

}