Pascal/Turbo Pascal - Porque falla?????

Hola, en el caso del programa anterior si no defino la variable de salida y de entrada en el mismo formato (en este caso un LONGINT) a la salida me da cualquier cosa, si alguien sabe porque lo hace me haria un enorme favor

Pruebenlo:

PROGRAM Fechas;

VAR
Dia,Mes,Anio:INTEGER;
Fecha:LONGINT;

BEGIN
WRITELN('Ingrese d¡a, mes y a¤o');
READ(Dia,Mes,Anio);
Fecha:=Anio*10000+Mes*100+Dia;
WRITELN('La fecha es:',Fecha);
END.

Si cambian Dia,Mes,Anio:INTEGER; por Dia,Mes,Anio:LONGINT; la salida es correcta

Muchas gracias
Eric

No es que de cualquier cosa.

Lo que pasa es que sobrepasas el valor de los enteros, recuerda que las variables de tipo integer tienen un rango de -32768 a 32767, entonces ( anio * 10000 + mes *100 + dia ) da un resultado mucho mas grande de lo que soporta un integer y aunque el resultado lo asignas a un longint este toma el valor despues de haber hecho la operacion con los integer.

por eso si a fecha la pones como integer y a las demas variables las pones como longint, ocurrira lo mismo.

Convertir variable integer a una del tipo longint
Probar lo siguiente:

VAR
Dia,Mes,Anio:INTEGER;
Fecha:LONGINT;

BEGIN
WRITELN('Ingrese dia, mes y año');
READ(Dia,Mes,Anio);
Fecha:=longint(Anio)*10000+longint(Mes)*100+Dia;
WRITELN('La fecha es:',Fecha);
END.

Tambien existe:byte(),integer(),real(),word()
Probar Tambien:
program Ejemplo;
var k:char;
begin
k:='A';
writeln(ord(k));
writeln(byte(k))
end.