Вопрос по программированию на паскале Выдаёт ошибку Program1.pas(6) Операция = не применима к типам boolean и integer

Программа:
var
a:integer;
Begin
Writeln ('Введите четырёхзначное число');
Readln(a);
If (a div 1000) = (a div 100 mod 10) or
(a div 1000)=(a mod 10) or
(a div 1000)=(a mod 100 div 10) or
(a div 100 mod 10)=(a div 1000) or
(a div 100 mod 10)=(a mod 100 div 10) or
(a div 100 mod 10)=(a mod 10) or
(a mod 100 div 10)=(a div 1000) or
(a mod 100 div 10)=(a mod 10) or
(a mod 100 div 10)=(a div 100 mod 10) or
(a mod 10)=(a div 1000) or
(a mod 10)=(a div 100 mod 10) or
(a mod 10)=(a mod 100 div 10)
Then Writeln('В числе совпадает две цифры')
Else
Writeln('Ошибка');
End.