Вывести на экран таблицу значений функции

program trig_func_tabl;
 
var
  zn1, zn2, f1, f2, f3, x, k_rad, x_grad: real;
  ind, n, ang, pred_ang : integer;
const zero = 1e-10;            // Величина меньше которой будем считать число нулём
const line = '+------+------------+------------+-------------------+';
begin
  ang := 15;                   // Величина угла в гардусах - шаг изменения аргумента (целое число)
  pred_ang := 360;             // Предельная величина угла в градусах (целое число)
  n := trunc (pred_ang / ang); // Определяем количество секторов умещается в pred_ang градусов
  k_rad := ang * pi / 180;     // Вычисляем часть угла в радианах, соответсвующую ang градусам
  writeln(line);               // Печатаем линию
  writeln('| Угол ', '|   1/sin(x) ', // Печатаем шапку таблицы
          '|   1/cos(x) ', '| 1/(sin(x)*cos(x)) |');
  writeln(line);                    // Печатаем линию
  for ind := 0 to n do              // Крутим цикл от нуля до n
    begin
      x := ind * k_rad;             // Определяем значение угла на данном цикле в радианах
      zn1 := sin(x);                // Вычисляем знаменатель одной функции
      zn2 := cos(x);                // Вычисляем знаменатель второй функции
      if abs(zn1) < zero then       // Проверяем насколько мала величина знаменателя zn1
        f1 := real.PositiveInfinity // Если мала, то присваиваем функции статус Infinity
        else f1 := 1 / zn1;         // Если не мала, то вычисляем значение функции
      if abs(zn2) < zero then       // Проверяем насколько мала величина знаменателя zn2
        f2 := real.PositiveInfinity // Если мала, то присваиваем функции статус Infinity
        else f2 := 1 / zn2;         // Если не мала, то вычисляем значение функции
      f3 := f1 * f2;                // Вычисляем третью функцию
      x_grad := ang * x / k_rad;    // Аргумент (угол) в градусной мере для вывода в таблицу
      writeln('|  ', x_grad:3,      // Печатаем форматированные строки таблицы
              ' | ', f1:10:6,  ' | ',f2:10:6, ' | ', ' ':3, f3:10:6, ' ':5, '|');
    end;                            // Окончание цикла
    writeln(line);                  // Печатаем линию
end.                                // Окончание программы