Напишите функцию, которая возвращает наименьшее из значений - Pascal

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

Напишите функцию, которая возвращает наименьшее из значений |x-y|, |y-z|, |z-x|.

Решение задачи: «Напишите функцию, которая возвращает наименьшее из значений»

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

function f(x, y, z: Integer): Integer;
var m, t: Integer;
begin
  m:=Abs(x-y);
  t:=Abs(y-z); if m>t then m:=t;
  t:=Abs(z-x); if m>t then m:=t;
  f:=m;
end;

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

Создается функция с названием f, которая принимает три целочисленных аргумента x, y и z и возвращает целочисленное значение.
Создаются две целочисленные переменные m и t.
Находится разность между x и y и сохраняется в переменную m (m:=Abs(x-y)).
Находится разность между y и z и сохраняется в переменную t (t:=Abs(y-z)).
Если значение переменной m больше чем значение переменной t, то значение переменной m заменяется на значение переменной t (if m>t then m:=t).
Находится разность между z и x и сохраняется в переменную t (t:=Abs(z-x)).
Если значение переменной m больше чем значение переменной t, то значение переменной m заменяется на значение переменной t (if m>t then m:=t).
Возвращается значение переменной m (f:=m).