Переделать программу, чтобы можно было найти разность максимального и минимального из четырех чисел

program n_21;
var a, b, c, d, f: integer;
function max (x, y: integer): integer;
begin
  if x>y then max:=x else max:=y;
end;
 
begin
  readln (a, b, c, d);
  f:=max(max(a, b), max(c, d));
  writeln ('f=', f);
end.

begin
  var a:=ReadArrInteger(4);
  WriteLnFormat('{0}-{1}={2}',a.Max,a.Min,a.Max-a.Min);
end.

function min(params arr: array of integer) := arr.Min;
function max(params arr: array of integer) := arr.Max;
 
begin
  var a, b, c, d: integer;
  Readln(a, b, c, d);
  Println(min(a, b)); //2 переменные
  Println(min(a, b, c)); //3 переменные
  Println(min(a, b, d)); //4 переменные
end.

program n_21;
function max (x, y: integer): integer;
begin
  if x>y then max:=x else max:=y;
end;
function min (x, y: integer): integer;
begin
  if x<y then min:=x else min:=y;
end;
var a, b, c, d, f: integer;
begin
  readln (a, b, c, d);
  f:=max(max(a, b), max(c, d))-min(min(a, b), min(c, d));
  writeln ('f=', f);
end.