Найти значения F для x, изменяющегося в интервале от x0 до xk с шагом h. Значения x0, xk, h вводятся пользователем. Составить программу в Delphi7 номер 18

var    x0, xk, dx, e, x, aa: real;    i: integer;function f(x, a: real): real;begin    if x < 0 then        f := 1 / Tan(x) + sqrt(1 + abs(x - 2))    else if x = 0 then        f := (a + x) + sin(Pi)    else         f := a * x * cos(x * Pi);end;begin    write('Введите промежуток и шаг ([a,b] h) и точность Е ');    readln(x0, xk, dx, e);    write('a =');    readln(aa);        x := x0;    writeln(' x ':10, ' | ', ' F(x,a) ':10);    repeat        writeln(x:10:3, ' | ', f(x, a):10:3);        x := x + dx;    until x >= xk;end.