Вычислить значение функции - Turbo Pascal (29393)

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

Помогите пожалуйста нужно найти значение функции Вычислить значение функции вот программа, подскажите в чем ошибка:

Program pr6;
var x,f: real;
begin
writeln('Введите x');
readln(x);
if x>1 or x<0 then f:=x*x-sin(3.14*x*x)
else f:=x*x-x;
end.

Решение задачи: «Вычислить значение функции»

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

program pr;
var
  x, f: real;
begin
  writeln('Введите х');
  readln(x);
  if ((x > 0) and (x < 1)) then
    f := (x * x) - x;
  if ((x > 1) or (x < 0)) then
    f := x * x - sin(pi * x * x);
  writeln('F(',x,'): ',f);
end.

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

Программа начинается с объявления двух переменных типа real: x и f.
Затем выводится сообщение «Введите х», и переменная x считывается из ввода пользователя.
Проверяется условие: если x больше 0 и меньше 1, то вычисляется значение f как (x * x) - x.
Если x больше 1 или меньше 0, то вычисляется значение f как x x - sin(pi x * x).
Выводится сообщение «F(x): », и значение f подставляется в сообщение.
Программа заканчивается.