Протабулировать функцию y=(x-1)^2 на заданном отрезке

program TabulationFunction;
 
uses crt;
 
var
  a, b, h, x, y: Real;
begin
  ClrScr;
  
  // Ввод границ интервала
  Write('Введите a: ');
  ReadLn(a);
  
  Write('Введите b: ');
  ReadLn(b);
  
  // Ввод шага
  Write('Введите шаг h: ');
  ReadLn(h);
  
  // Проверка корректности интервала и шага
  if (a > b) then
  begin
    WriteLn('Ошибка: a должно быть меньше или равно b.');
    Halt(1);
  end;
  
  if h <= 0 then
  begin
    WriteLn('Ошибка: шаг h должен быть положительным.');
    Halt(1);
  end;
  
  // Табулирование функции
  x := a;
  WriteLn('------------------------------');
  WriteLn('|    x    |     y = (x-1)^2   |');
  WriteLn('------------------------------');
  while x <= b do
  begin
    y := Sqr(x - 1);
    WriteLn('|', x:8:3, ' |', y:15:3, ' |');
    x := x + h;
  end;
  WriteLn('------------------------------');
  
  ReadLn;
end.