Написать рекурсивную функцию вычитания целых чисел — Pascal(Паскаль)

uses crt;
function Vych(a,b:longint):longint;
begin
if b=0 then Vych:=a
else if b>0 then Vych:=Vych(a-1,b-1)
else Vych:=Vych(a+1,b+1)
end;
var m,n:longint;
begin
clrscr;
writeln('Введите 2 целых числа m,n:');
readln(m,n);
write(m,' - ',n,'=',Vych(m,n));
readln
end.