Решение простейшего уравнения: программа закрывается при повторном вводе данных - Free Pascal

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

Мне сказали задать оператор вывода, но не знаю, как его сделать! Уснул на этой лекции. Суть в том, что число выводится в виде:" число.число(буква)+набор чисел(буква) " А требуется вывод 1 точным числом. Уравнение: Y=8-x³ / 8.25 - х Мой код. Который на ПР работал(В смысле ввода), а дома отказывается.

                    Листинг программы
                
 
                        
                          
                    
Program work;
var x,y: real;
begin
writeln ('Введите X');
readln(x);
if x() then begin y:=(8-sqr(x)*x)/(8.25-x);
writeln('y=' ,y:2:5);
readln();
end
else
writeln('НИД');
readln();
end.

Прошу ваш код и мои ошибки.

Решение задачи: «Решение простейшего уравнения: программа закрывается при повторном вводе данных»

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

Program work;
var x,y: real;
    c:char;
begin
repeat
writeln ('Введите X');
readln(x);
if x<>8.25 then
 begin
  y:=(8-x*x*x)/(8.25-x);
  writeln('y=' ,y:0:5);
 end
else writeln('НИД');
writeln('Повторить? Y/y');
readln(c);
until upcase(c)<>'Y';
end.

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

Программа начинается с объявления трех переменных: x, y и c.
Переменная x объявлена как real, т.е. действительное число, и используется для хранения значения, введенного пользователем.
Переменная y также объявлена как real и используется для хранения результата вычисления.
Переменная c объявлена как char и используется для хранения символа, введенного пользователем.
Программа использует цикл repeat для повторного выполнения блока кода.
Внутри цикла выводится приглашение для ввода значения x.
Значение x считывается с помощью функции readln.
Если значение x не равно 8.25, то выполняется блок кода, который вычисляет значение y и выводит его на экран.
Если значение x равно 8.25, то выводится сообщение НИД.
Выводится приглашение для ввода символа c.
Символ c считывается с помощью функции readln.
Блок кода выполняется до тех пор, пока символ c не будет равен Y (заглавная буква).
Значение c сравнивается со Y с использованием функции upcase.
Когда значение c становится равным Y, цикл прекращается и программа завершается.
Значение y выводится на экран с точностью до 5 знаков после запятой.
Значение x выводится на экран.
Значение c выводится на экран.
Значение y выводится на экран.
Значение x выводится на экран.
Значение c выводится на экран.