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

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('    | 2 - sqrt(4 - sqr(x + 8)), if -10 <= x < -6');
  writeln('    | 2,                        if -6 <= x < -4');
  writeln('y = | -x / 2,                   if -4 <= x < 2');
  writeln('    | x - 3,                    if 2 <= x <= 8');
  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 (-10 <= x) and (x < -6)
        then write(2 - sqrt(4 - sqr(x + 8)):9:3)
        else if (-6 <= x) and (x < -4)
          then write(2.0:9:3)
          else if (-4 <= x) and (x < 2)
            then write(-x / 2:9:3)
            else if (2 <= x) and (x <= 4)
              then write(x - 3:9:3)
              else write('undefined');
      writeln('|')
    end;
  write('+---------+---------+');
  readln
end.