Решение уравнения, используя оператор FOR - Pascal ABC

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

Первая задача, помогите найти ошибку в коде

var
  a, b, x, T: real;
  
begin
  
 T := (exp(1-a*x)+b*sqr(sin(a))*sqrt(x))/(ln(abs(x-a))-2.1);
  writeln;
  writeln('T = ', T:0:5)
end.

Составить программу на Паскале, используя оператор FOR. Задача №3

Решение задачи: «Решение уравнения, используя оператор FOR»

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

var
  a, b, x, T: real;
 
begin
  write('Введите a -> ');
  readln(a);
  write('Введите b -> ');
  readln(b);
  write('Введите x -> ');
  readln(x);
  if(x<0)or(a=x)or(ln(abs(x-a))=2.1) then
  write('Значение Т не определено')
  else
   begin
    T := (exp(1 - a * x) + b * sqr(sin(a)) * sqrt(x)) / (ln(abs(x - a)) - 2.1);
    write('T = ', T:0:5)
   end
end.

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

Создается переменная a типа real и присваивается значение, введенное пользователем.
Создается переменная b типа real и присваивается значение, введенное пользователем.
Создается переменная x типа real и присваивается значение, введенное пользователем.
Вычисляется значение переменной T с использованием формулы: (exp(1 - a x) + b sqr(sin(a)) * sqrt(x)) / (ln(abs(x - a)) - 2.1).
Значение переменной T записывается в виде числа с плавающей точкой с 5 знаками после запятой.
Если значение T не определено (т.е. x меньше нуля, или a равно x, или ln(abs(x-a)) равно 2.1), то выводится сообщение Значение Т не определено.
Если значение T определено, то выводится значение переменной T.