Pascal/Turbo Pascal - Ayuda con programa

Hice este programa que te dice si el número es capicúa y que tipo de capicúa es (quintuple ej 88888), cuádruple (ej 22822), triple(por ejemplo 48484 o 48884) o doble( ej 45854).
No se porque el programa no compila, cuando llega a "condquint(condición para que sea quintuple), me tira el error got boolean expected "longword", así que no se que esta mal, ya que defini a conquint como boolean, me gustaría que me dijeran que es lo que esta mal, un saludo

Program ej1S6;

var d1,d2,d3,d4,d5:byte;
condquint,condcuad,condtrip,conddob:boolean;

begin
writeln('Este programa le dir si el n£mero que ingres¢ es capic£a y que tipo de capic£a es.');

writeln('Ingrese el primer d¡gito');
readln(d1);
writeln('Ingrese el segundo d¡gito');
readln(d2);
writeln('Ingrese el tercer d¡gito');
readln(d3);
writeln('Ingrese el cuarto d¡gito');
readln(d4);
writeln('Ingrese el quinto d¡gito');
readln(d5);
condquint:=(d1=d5 and d2=d4 and d2=d3 and d1=d2)
condcuad:=(d1=d5 and d2=d4 and d2<>d3 and d1=d2)
condtrip:=(d1=d3=d5 and d2=d4 and d1<>d2) or
(d1=d5 and d2=d3=d4 and d1<>d2);
conddoble:=(d1=d5 and d2=d4 and d1<>d2 and d1<>d3 and d2<>d3);

if condquint then
writeln('El n£mero es capic£a quintuple');
if condcuad then
writeln('El n£mero es capic£a cuadruple');
if condtrip then
writeln('El n£mero es capic£a triple');
if conddoble then
writeln('El n£mero es capic£a doble');

if (condquint or condcuad or condtrip or conddoble)
then
writeln('Es capicua');
else
writeln('No es capicua')
end.

Encierra los términos de la expresión booleana entre paréntesis. Así:

condquint:=(d1=d5) and (d2=d4) and (d2=d3) and (d1=d2);

Y lo olvides los ; para finalizar cada sentencia.