Ошибка "встречено else, а ожидался оператор" - Pascal ABC

Формулировка задачи:

Пишет в откладке yes но всеровно неправильно

Решение задачи: «Ошибка "встречено else, а ожидался оператор"»

Листинг программы

var a,b:integer; a1,a2,a3,b1,b2,b3:byte;
begin
readln(a,b);
a1:=a div 100;
a2:=a div 10 mod 10;
a3:=a mod 10;
b1:=b div 100;
b2:=b div 10 mod 10;
b3:=b mod 10;
if (a1=b1) or (a1=b2) or (a1=b3) or
(a2=b1) or (a2=b2) or (a2=b3) or
(a3=b1) or (a3=b2) or (a3=b3)
then writeln('yes');
else writeln('no');
end.

Объяснение кода листинга программы

Переменные a и b имеют тип integer.
Переменные a1, a2, a3, b1, b2 и b3 имеют тип byte.
Код считывает ввод с помощью функции readln(a,b).
Значения переменных a и b присваиваются переменным a1, a2, a3, b1, b2 и b3 соответственно с помощью оператора присваивания :=.
Если значение переменной a1 равно значению переменной b1, или значение переменной a2 равно значению переменной b2, или значение переменной a3 равно значению переменной b3, то выводится строка 'yes'. В противном случае выводится строка 'no'.
Оператор if используется для проверки условия.
Оператор or используется для проверки каждого из трех условий.
Оператор else используется для указания действия, которое будет выполнено, если условие не выполнится.
Функция writeln() используется для вывода строки на экран.