Question

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

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.