Вычислить значение функции для любого значения переменной

program Project1;
var
  s: string; // Вспомогательная переменная для проверки корректности ввода аргумента.
  code: integer; // Вспомогательная переменная для проверки корректности ввода аргумента.
  x: real; //  Переменная для хранения значения аргумента.
  y: real; //  Переменная для хранения значения результата вычислений.
begin
  repeat
    Writeln('Введите значение аргумента X (вещественное число): ');
    Readln(s);
    val(s,x,code);       // Проверка ввода числового аргумента на корректность.
    if code <> 0 then   // Условие проверки аргумента на корректность и вывод предупреждения.
      Writeln('Некорректное значение аргумента! Повторите попытку.');
  until code = 0;     // Условие окончание работы цикла при проверки ввода аргумента на корректность.
  if x <= 0 then     // Проверка значения аргумента на условие вычислений.
   y:= sin(x)- x*x             // Вычисление результата.
  else
   y:= sin(x)- x;
  Writeln('Результат вычислений: ',y:0:4);
  Readln;
end.