Pascal/Turbo Pascal - RECURSIVIDAD (proucto de dos números m y n) BÁSICO

EL enunciado dice:
Diseñar e implementar en Pascal una función recursiva que permita multiplicar dos números enteros m y n.
Yo he hecho esto, pero creo que (aunque funciona) esta mal porque no veo la recursividad por ningún lado.

PROGRAM Producto;
USES Crt;
VAR
m, n, i: integer;
FUNCTION resultado (a, b: integer): integer;
BEGIN
IF (a=0) OR (b=0) THEN
resultado:=0
ELSE
resultado:=a*b
END;
BEGIN
ClrScr;
Writeln ('Introduzca un n£mero entero:');
Readln (m);
Writeln ('Introduzca un n£mero entero:');
Readln (n);
Writeln ('El resultado de multiplicar los dos n£meros es: ',resultado (m,n));
Readkey
END.

La función quedaría así:

Function Multiplica(A :Integer; B :Word) :LongInt;
Begin
If (B<A) then
Multiplica := Multiplica(B, A)
Else
Begin
If (B=0) then
Multiplica := 0
Else
Multiplica := A + Multiplica(A, B-1);
End; {If}
End; {Multiplica}

Saludos ;-)