Операнды имеют неприводимые типы (в операторе if) - Pascal ABC

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

uses crt;
var a,b,d:integer;
k:string;
begin;
randomize;
 repeat
 clrscr;
 a:=random(50);
 if a=1
 then begin
  writeln('Начало русской государственности');
  readln(k)
  end
  else
  if a=2
 then begin
  writeln('Правление Рюрика');
  readln(k) end
  else

    (if
)    a(=1 and k='860' then begin writeln('ответ правильный');
   else writeln('ответ неправильный, правильный ответ: 260 год, 18-25 июня') end
    if
    a=2 and k='862-879' then begin writeln('ответ правильный');
   else writeln('ответ неправильный, правильный ответ: 260 год, 18-25я') end

Ошибка там, где k='860'. Программу ещё не завершил, решил проверить код и обнаружил эту ошибку. Пробовал k внести под integer и изменить значение в коде на integer, однако та же ошибка Попробовал

if
(a=1) and (k='860') then begin writeln('ответ правильный');
else writeln('ответ неправильный, правильный ответ: 260 год, 18-25 июня') end

Сказал, что нельзя ставить ";" перед else в операторе if 0_0, если её убрать, пишет, что ожидался символ ;

Решение задачи: «Операнды имеют неприводимые типы (в операторе if)»

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

                            if
(a=1) and (k='860') then begin writeln('ответ правильный'); end
else begin writeln('ответ неправильный, правильный ответ: 260 год, 18-25 июня') end
                        