Дано пять чисел. Определить максимальное из них - Pascal ABC

Формулировка задачи:

Дано пять чисел. Определить максимальное из них.Определить функцию, находящую максимум из двух различных чисел. Мне нужно сделать эту задачу через процедуру и функцию. Я сделал для функции вот так:

Var
  a:array[1..5]of integer;
  i,j,max:integer;
function f(a,b:integer):integer;
begin
if a>b then result:=a else result:=b;
end;
begin
for i:=1 to 5 do
  begin
  a[i]:=random(10);
  end;
writeln;
max:=a[1];
for i:=1 to 5 do
  for j:=i+1 to 5 do
    if f(a[i],a[j])>max then max:=f(a[i],a[j]);
writeln('max=',max);    
end.

А училка говорит что здесь массивы вообще не нужны, и то что функция у меня в задаче не используется. Вопрос как сделать так чтобы функция использовалась. Не могу понять как сделать по другому. ПОЖАЛУЙСТА ПОМОГИТЕ!

Решение задачи: «Дано пять чисел. Определить максимальное из них»

Листинг программы

function max(a,b:integer):integer;
begin
if a>b then result:=a else result:=b;
end;
var a,b,c,d,e:integer;
begin
writeln('Введите 5 целых чисел');
readln(a,b,c,d,e);
write('Максимальное=',max(max(max(a,b),max(c,d)),e))
end.

Объяснение кода листинга программы

Данная программа на языке Pascal ABC предназначена для нахождения максимального из пяти введенных чисел. В начале кода определена функция max, которая принимает два целых числа в качестве параметров и возвращает наибольшее из них. Внутри функции происходит сравнение двух чисел с помощью условного оператора if ... else. Если первое число больше второго, то результат присваивается переменной result и возвращается значение a, иначе результат присваивается переменной result и возвращается значение b. Затем объявлены пять переменных типа integer: a, b, c, d и e, которые будут использоваться для ввода и хранения чисел. Далее программа предлагает пользователю ввести пять целых чисел с помощью функции readln. Введенные данные сохраняются в соответствующих переменных. Наконец, выводится сообщение с максимальным значением, которое найдено функцией max. Для этого используется функция write. Таким образом, данный код позволяет найти максимальное из пяти введенных чисел и вывести его на экран.