Проблемы с программой на языке паскаль.

Добрейший вечерок. 10 класс, задали написать калькулятор. Буду благодарен, если кто-то подскажет мне, что не так с данным кодом.

program calc;
var z, a, b, x: real;
Begin
writeln ('Какое действие Вы хотите выполнить?');
writeln ('1 - сложение');
writeln ('2 - вычитание');
writeln ('3 - умножение');
writeln ('4 - деление');
writeln ('5 - извлечение квадратного корня');
writeln ('Ваше действие (введите цифру):');
readln (z);
case z of
1: write ('Введите первое слогаемое - ');
readln (a);
write ('Введите второе слогаемое - ');
readln (b)
begin
x:=a+b;
writeln ('Сумма: ', x)
end
2: write ('Введите уменьшаемое - ');
readln (a);
write ('Введите вычитаемое - ');
readln (b);
begin
x:=a-b;
writeln ('Разность: ', x)
end
3: write ('Введите первый множитель - ');
readln (a);
write ('Введите второй множитель - ');
readln (b);
begin
x:=a*b;
writeln ('Произведение: ', x)
end
4: write ('Введите делимое - ');
readln (a);
write ('Введите делитель - ');
readln (b);
if b=0
then writeln ('ДЕЛЕНИЕ НА НОЛЬ НЕВОЗМОЖНО!')
else
begin
x:=a/b;
writeln ('Частное: ', x)
end
5: write ('Введите число под корнем - ');
readln (a);
begin
x:=sqrt(a);
writeln ('Результат: ', x)
end
Else
writeln ('ВВЕДЕНА НЕКОРРЕКТНАЯ ИНФОРМАЦИЯ!');
writeln ('ПЕРЕЗАПУСТИТЕ ПРОГРАММУ.')
end
End.