Протабулировать функцию - Free Pascal (697)

Формулировка задачи:

Выручайте Напечатать таблицу значений функции в интервале от -10 до 10 с шагом 1

(Не забудьте отразить условие, что на 0 делить нельзя)

Решение задачи: «Протабулировать функцию»

textual
                            Листинг программы 
                        

                            const lin = '+----+-----------+';
var x: integer;
begin
  writeln(lin);
  writeln('|  x |    f(x)   |');
  writeln(lin);
  for x := -10 to 10 do
    begin
      write('|', x:3, ' |');
      if abs(x) = 1
        then write(' undefined')
        else write((3 - 2 * x) / (x + 1) + 4 / (x - 1):10:6);
      writeln(' |')
    end;
  write(lin);
  readln
end.
                        