Неполучается решить задачу по паскалю... выдаёт тип то что 'встречено else,а ожидался оператор 'всё перепробывал...если кто знает скажите


Program komp;

var
a,b : integer;
x,s,k : string;

begin
writeln('Введите своё имя:');
readln(x);


if x = 'Антон' then
writeln('Добро пожаловать, Антон!');
writeln('Выбирите действие:');
writeln('КАЛЬКУЛЯТОР');

readln(s);

if s = 'КАЛЬКУЛЯТОР' then
writeln('Выбирите знак(+,-,/,*):');
readln(k);
begin
begin

if k = '+' then

writeln('Введите пример:');
readln(a,b);
writeln('ОТВЕТ:', a+b)

else

if k = '-' then
writeln('Введите пример:');
readln(a,b);
writeln('ОТВЕТ:', a-b)


else
if k = '*' then
writeln('Введите пример:');
readln(a,b);
writeln('ОТВЕТ:', a*b)

else
if k = '/' then

writeln('Введите пример:');
readln(a,b);
writeln('ОТВЕТ:', a/b);

end;
end.


Программа не дописана...