Получение всех значений функции с употреблением дополнительной функции пользователя

program Project1;
 
function f(x,a,b,k: real): real;
{Функция для вычисления математического выражения}
begin
  f:= 2*a - b - (sin(k))/(x + x*x);
end;
 
var
  c: array[1..5] of real; {Переменная для хранения массива}
  y: real; { Переменная для хранения значения результата}
  i: integer; { Переменная для организации цикла}
  z: real; {Промежуточная переменная для вычисления}
begin
  c[1]:= 2.7;
  c[2]:= -7;
  c[3]:= 6.3;
  c[4]:= 4.1;
  c[5]:= 8.9;
  for i:= 1 to 5 do
    begin
      if (c[i] <> 0) and (abs(c[i] + 0.7) > 1e-10) and (abs(c[i]+ sqr(c[i])) > 1e-10) then
        begin
          z:= f(c[i] + 0.7,7.9,3.6,4);
          if abs(z) > 1e-10 then
            begin
              y:= 10*f(0.5*c[i],7.9,3.6,4)/z;
              writeln(i,'; y = ',y:0:4);
            end
          else
            writeln(i,'; Функция не определена');
        end
      else
        writeln(i,'; Функция не определена');
    end;
  Readln;
end.