Pascal/Turbo Pascal - Invertir un numero usando recursividad

program invertirNumero;

uses CRT;

var

num: integer;

function invertir(num:integer):integer;

begin

    if (num < 10) then

    begin

        write(num); // caso base

    end

    else

    begin

        write(num mod 10);

        invertir(num div 10);

    end;

end;

begin

    writeln('Ingrese el numero que desea invertir');

    read(num);

    invertir(num);

end.