Как в паскале из функции max вычесть min (предварительно вычислив их значения)

var

a,b:integer;

function max(a, b:integer): integer;

begin

   if a >= b then

       max:=a else max := b; end;

function min(a, b:integer): integer;

begin

if a <= b then

       min := a  else  min := b;

end;

begin

   write ('Введите число a ');

   readln (a);

   write ('Введите число b ');

   readln (b);

writeln(max(a,b)-min(a,b));

end.