Как в паскале из функции 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.