Найти значение функции - Pascal ABC (13083)

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

Не могу написать совсем Паскаль с головы вылетел(

Решение задачи: «Найти значение функции»

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

var x,y:real;
    k:byte;
begin
write('x=');
readln(x);
if (x>=-10)and(x<0)then y:=sqrt(abs(x))
else if x=0 then y:=0
else if (x>0)and(x<=10)then y:=x*x-x
else k:=1;
if k=1 then write('При х=',x:0:2,' y не определено')
else write('y=',y:0:2)
end.

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

Объявляются переменные x, y и k типа real и byte соответственно.
Выводится сообщение x=.
Считывается значение переменной x с помощью функции readln.
Проверяется условие: x должно быть больше -10 и меньше 0. Если это условие выполняется, то вычисляется квадратный корень абсолютного значения x и присваивается переменной y.
Если x равно 0, то y присваивается значение 0.
Если x больше 0 и меньше или равно 10, то вычисляется произведение x и x, а затем вычитается x. Это значение присваивается переменной y.
Вычисляется значение переменной k.
Проверяется условие: k равно 1.
Если k равно 1, то выводится сообщение При x= с указанными значениями x:0:2, а затем выводится сообщение y не определено.
Если k не равно 1, то выводится значение переменной y.