Вычислить и вывести на экран в виде таблицы значения функции, заданной графически - Free Pascal (932)

var x, dx, sx, ex: real;
    i: integer;
begin
  writeln('Enter margins:');
  write('x1 = '); readln(sx);
  write('x2 = '); readln(ex);
  repeat
    write('Step = '); readln(dx);
    if dx = 0 then writeln('Enter non-zero step!')
  until dx <> 0;
  if sx > ex
    then begin
      x := sx;
      sx := ex;
      ex := x
    end;
  if dx < 0 then dx := -dx;
  writeln('Tabulation of function:');
  writeln('    | -x - 2,               if -3 <= x < -2');
  writeln('    | sqrt(1 - sqr(x + 1)), if -2 <= x < -1');
  writeln('y = | 1,                    if -1 <= x < 1');
  writeln('    | 3 - 2 * x,            if 1 <= x < 2');
  writeln('    | -1,                   if 2 <= x <= 5');
  writeln('    | undefined,            otherwise');
  writeln('+---------+---------+');
  writeln('|    x    |    y    |');
  writeln('+---------+---------+');
  for i := 0 to round(abs(ex - sx) / dx) do
    begin
      x := sx + dx * i;
      write('|', x:9:3, '|');
      if (-3 <= x) and (x < -2)
        then write(-x - 2:9:3)
        else if (-2 <= x) and (x < -1)
          then write(sqrt(1 - sqr(x + 1)):9:3)
          else if (-1 <= x) and (x < 1)
            then write(1.0:9:3)
            else if (1 <= x) and (x < 2)
              then write(3 - 2 * x:9:3)
              else if (2 <= x) and (x <= 5)
                then write(-1.0:9:3)
                else write('undefined');
      writeln('|')
    end;
  write('+---------+---------+');
  readln
end.