Pascal/Turbo Pascal - Recursivo de númeos primos (2)

Hola soy yo otra vez. Al fin pude encontrar la lógica para hacer correr esta función recursiva; es la siguiente:

function primo (n,d: integer): boolean;
begin
primo:= true;
if n = 1 then exit;
if d = 1 then exit
else
if n mod d = 0 then
begin
primo:= false; exit;
end
else
primo:= primo (n,d-1);
end;

Nota: Al hacer el llamado de la función se deben enviar como parametros el número leido y el mismo número menos uno, ejemplo:

if primo (numero, numero - 1)= true
then writeln (' El numero ', numero,' es primo ')
else writeln (' El numero ', numero,' no es primo ');

Gracias por su ayuda!