Встречено Else а ожидался оператор - Pascal ABC

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

Написал программу:

program klxz3;
var
x,y,z1,z2:real;
begin
writeln('Введите x и y');
readln(x,y);
if (sqr(x)-y<-2) and (x>0) then
z1:=sqrt(exp(x))-5;
z2:=sin(sqr(x)-y)-sqr(y);
writeln(z1,z2);
else 
z1:=(2/3*ln(x))-exp(y*ln((abs(sin(x)))));
writeln('z1=',z1:2:3);
end.

Только вот ошибку выдаёт "Встречено else а ожидался оператор".Посмотрел темы форума, так и не нашёл решения.Погуглил-пишут что надо перед else удалить ";" , но я их удалил и тогда выдаётся ошибка "Встречено Else, а ожидалось ;". Если закомментировать часть кода с блоком Else то программа работает,правда не совсем как надо. Если закомментировать после if последние две строчки-тоже работает, но опять же не так как надо.В чём дело так и не могу понять.

Решение задачи: «Встречено Else а ожидался оператор»

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

program klxz3;
var
x,y,z1,z2:real;
begin
writeln('Введите x и y');
readln(x,y);
if (sqr(x)-y<-2) and (x>0) then begin
z1:=sqrt(exp(x))-5;
z2:=sin(sqr(x)-y)-sqr(y);
writeln(z1,z2); end
else 
z1:=(2/3*ln(x))-exp(y*ln((abs(sin(x)))));
writeln('z1=',z1:2:3);
end.

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

В программе объявлены три переменные типа real: x, y и z1.
Выводится сообщение для ввода значений x и y.
С помощью функции sqr() вычисляется квадрат переменной x.
Проверяется условие: sqr(x)-y<2 и x>0. Если это условие истинно, то выполняется следующий блок кода.
Вычисляются значения переменных z1 и z2 с использованием функций exp(), sin() и sqr().
Выводится результат вычислений z1 и z2.
Если условие из пункта 4 не выполняется, то вычисляется значение переменной z1 по формуле (2/3ln(x))-exp(yln((abs(sin(x))))).
Выводится результат вычисления z1.
Программа завершается.