Построить таблицу значений функции

program Project1;
var
  f: real; // Переменная для  хранения значения вычислений.
  x: real; // Переменная для хранения значения аргумента.
  x0: real; //  Переменная для хранения значения левой границы вычислений.
  xk: real; // Переменная для хранения значения правой границы вычислений.
  h: real; // Переменная для хранения значения шага аргумента.
  b: real; // Переменная для хранения значения константы.
  flag: boolean; // Логическая переменная для организации корректного ответа.
begin
  write('Введите значение левой границы вычислений: ');
  Readln(x0);
  write('Введите значение правой границы вычислений: ');
  Readln(xk);
  write('Введите значение шага аргумента: ');
  Readln(h);
  write('Введите значение константы: ');
  Readln(b);
  x:= x0;
  while x <= xk + h/2 do
  begin
    flag:= true;
    if x = 2 then
      f:= (5 - b*b)+ cos(Pi*x)
    else
      if x > 2 then
        f:= ln(x-2)* sin(x/2)
      else
        flag:= false;
    if flag then
      writeln('x = ',x:0:2,'; f(x)= ',f:0:4)
    else
      writeln('x = ',x:0:2,'; Значение функции не определено.');
    x:= x + h;
  end;
  Readln;
end.

const
  b = 10;
 
var
  f, x, x0, xk, h: real;
 
begin
  readln(x0, xk, h);
  while x < xk do
  begin
    if x = 2 then
    begin
      f := 5 - b * b + cos(pi * x);
      writeln('x: ', x:8:2, ' f: ', f:8:2);
    end
    else
    if x > 2 then
    begin
      f := ln(x - 2) * sin(x / 2);
      writeln('x: ', x:8:2, ' f: ', f:8:2);
    end
    else
      writeln('x: ', x:8:2, ' значение не определено');
    x := x + h;
  end;
end.