Pascal/Turbo Pascal - PROBLEMA CON UNA SUMA EN PASCAL

Tengo un problema con mi código en una parte, tengo que hacer una comprobación de una clave lo que requiere que las dos ultimas cifras de la clave sumadas sea igual a la primera cifra de la clave, y si se hacerlo pero cuando lo pongo en pascal para hacer la suma me esta tirando un resultado negativo siendo que estoy poniendo un numero entero positivo, puede ser una falla de mi compilador?. Copio el código a ver si me pueden ayudar

function comprobacion(contrasena:longint):boolean;

var

operacion,cifra6,cifra5,cifra1,cortar :integer;


begin


cifra6:=contrasena mod 10;
cortar:=contrasena div 10;
cifra5:=cortar mod 10;
cifra1:=contrasena div 100000;

if ((cifra6+cifra5)=cifra1) then comprobacion:=true


else comprobacion:=false


end;

program condig;
uses Math ,crt ;
var
numero : longint;


function comprobar(nu:LongInt ): boolean ;
var
condig,
temp, ultimodig,
penultimodig, primerdig, x : LongInt;
begin

if (nu > 99) then
begin

temp := nu ;
condig := 0 ;
primerdig := 0 ;
ultimodig := 0;
penultimodig := 0;
while (nu > 0) do
begin
x := (nu mod 10);
condig := condig + 1 ;
nu := int(nu / 10);
end;
primerdig := int(temp / power(10,condig-1));
ultimodig := temp mod 10;
penultimodig := (temp mod 100) div 10;
comprobar := primerdig = (penultimodig + ultimodig);
end
else
begin
comprobar := false ;
end ;
end ;


(* programa principal *)
begin

numero := 101;


if comprobar(numero) then
writeLn('la clave es correcta')
else
writeLn('Clave incorrecta ');



readln;
end.