Вычислить и вывести на экран в виде таблицы значения функции F на интервале от Xнач. до Xкон. с шагом dX — Pascal(Паскаль)

uses crt;
function F(x,a,b,c:real):real;
begin
if(x<5)and(c<>0)then F:=-a*x*x-b
else if(x>5)and(c=0)then F:=x-a/x
else F:=-x/c;
end;
var xn,xk,dx,x,a,b,c,y:real;
begin
clrscr;
write('xn=');readln(xn);
repeat
write('xk>xn xk=');readln(xk);
until xk>xn;
repeat
write('dx<(xk-xn) dx=');readln(dx);
until dx<xk-xn;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
x:=xn-dx;
while x<=xk do
 begin
  x:=x+dx;
  y:=F(x,a,b,c);
  writeln('x=',x:5:1,'   y=',y:8:3);
 end;
readln
end.