Определить корни уравнения - PascalABC.NET

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

Program1.pas(23) : Встречено 'else', а ожидалось ';'

                    Листинг программы
                
 
                        
                          
                    
program tasw;
var
A,B,D,C,X1,X2,X1k :real;
begin
writeln ('Введите переменную А');
readln (A);
writeln ('Введите переменную В');
readln (B);
writeln ('Введите переменную C');
readln (C);
D:=B*B-4*A*C;
writeln ('Дискриминант равенн');
writeln (D);
if (D<0)then writeln ('Корней нет')
else
begin
if (D>0) then writeln ('2 корня');
X1:=(-B+sqrt(D))/(2*A);
X2:=(-B-sqrt(D))/(2*A);
writeln('X1 = ',X1);
writeln('X2 = ',X2); 
writeln('Решено') 
else
begin
X1k:=-B/(2*A)
writeln('X1k = ',X1k)
writeln ('Решено')
end;
end;
end.

Решение задачи: «Определить корни уравнения»

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

program tasw;
var
A,B,D,C,X1,X2,X1k :real;
begin
writeln ('Введите переменную А');
readln (A);
writeln ('Введите переменную В');
readln (B);
writeln ('Введите переменную C');
readln (C);
D:=B*B-4*A*C;
writeln ('Дискриминант равенн');
writeln (D);
if (D<0)then writeln ('Корней нет')
else if (D>0) then
 begin
  writeln ('2 корня');
  X1:=(-B+sqrt(D))/(2*A);
  X2:=(-B-sqrt(D))/(2*A);
  writeln('X1 = ',X1);
  writeln('X2 = ',X2);
  writeln('Решено')
 end
else
 begin
  X1k:=-B/(2*A);
  writeln('X1k = ',X1k);
  writeln ('Решено')
 end;
end.

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

[1] Программа tasw [2] Задает значения переменным A, B, C, D, X1, X2, X1k [3] Выводит значение переменной D [4] Проверяет значение переменной D [5] Если D меньше нуля, выводит сообщение Корней нет [6] Если D больше нуля, выводит сообщение 2 корня и вычисляет значения X1 и X2 [7] Выводит значения переменных X1 и X2 [8] Если D равно нулю, вычисляет значение X1k и выводит его [9] Выводит сообщение Решено [10] Конец программы