Не могу поставить end. после else – пишет "ожидался оператор"

uses crt;
var a:integer;
k:string;
begin;
randomize;
   repeat
   clrscr;
   a:=random(4);
   if a=1
       then begin
       writeln('Начало русской государственности');
       readln(k)
       end
else
    if a=2
       then begin
       writeln('Правление Рюрика');
       readln(k) end
else
    if a=3
       then begin
       writeln('Правление Олега');
       readln(k) end
else
    if a=4
       then begin
       writeln('Захват Олегом Киева');
       readln(k) end
else
 
 
    if
    (a=1) and (k='860') then begin writeln('ответ правильный') end
else
    if
      (a=2) and (k='862-879') then begin writeln('ответ правильный') end
else
 
    if
      (a=3) and (k='879-912') then begin writeln('ответ правильный') end
else
    if
     (a=4) and (k='882') then begin writeln('ответ правильный') end
else
 
 
   if (a=1) then
   begin writeln('ответ неправильный, правильный ответ: 860 год, 18-25 июня') end
else
   if (a=2) then
   begin writeln('ответ неправильный, правильный ответ: 862-879') end
else
   if (a=3) then
   begin writeln('ответ неправильный, правильный ответ: 879-912') end
else
   if (a=4) then
   begin writeln('ответ неправильный, правильный ответ: 882') end
else
end.