Процедура/функция нахождения наибольшего из трех чисел - Turbo Pascal

Даны три числа.Напишите процедуру и функцию для вычисление наибольшего из них

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

function Max3(a, b, c: Integer): Integer;
var r: Integer;
begin
  r:=a;
  if b>r then r:=b;
  if c>r then r:=c;
  Max3:=r;
end;

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

Функция называется Max3 и принимает три аргумента типа Integer (a, b, c).
Переменная r инициализируется значением первого аргумента (a) и будет использоваться для сравнения с остальными двумя аргументами.
Вложенный условный оператор if используется для последовательного сравнения значений переменных a, b и c. Если значение переменной b больше значения переменной r, то значение переменной r присваивается значению переменной b. Аналогично, если значение переменной c больше значения переменной r, то значение переменной r присваивается значению переменной c.
После выполнения всех условных операторов, значение переменной r становится максимальным из трех чисел и присваивается переменной Max3.
Функция заканчивается возвратом значения переменной Max3.