Решение уравнения с вводом данных

var
  a,b,c: integer;
  x,d: real;
begin
  repeat
    write('Введите значение a (a<>0): ');
    readln(a);
  until a<>0;
  write('Введите значение b: ');
  readln(b);
  write('Введите значение c: ');
  readln(c);
  d:=b*b-4*a*c;
  writeln('Решение уравнения:');
  if d=0 then
    writeln('Корень один: х = ',-b/2/a) else
  if d<0 then 
    writeln('Корней на множестве действительных чисел нет') else  
  begin
    writeln('Корней два:');
    writeln('1-й корень: x1 = ',(-b-sqrt(d))/2/a);
    writeln('2-й корень: x1 = ',(-b+sqrt(d))/2/a);
  end;
  readln;
end.

uses crt;
const e=0.001;
type func=function(x:real):real;
function f1(x:real):real;//1 функция
begin
f1:=x*x*x-10*x-5;
end;
function pf1(x:real):real;//ее 1 производная
begin
pf1:=3*x*x-10;
end;
function f2(x:real):real;
begin
f2:=x*x*x*x-10*x*x-20;
end;
function pf2(x:real):real;
begin
pf2:=4*x*x*x-20*x;
end;
function f3(x:real):real;
begin
f3:=x*x*x*x-5*x*x*x-15*x*x+7;
end;
function pf3(x:real):real;
begin
pf3:=4*x*x*x-15*x*x-30*x;
end;
function newton(f,g:func;a,b:real):real; //функция уточнения корней
var x:real;
begin
if f(a)*g(a)>0 then x:=a
else x:=b;
while abs(f(x))>e do
   begin
     x:=x-f(x)/g(x);
   end;
newton:=x;
end;
procedure korni(f,g:func;a,b:real);
var x,x1,x2,dx,x11,x12,eps:real;
    i:integer;
begin
x1:=a;//интервал для поиска корней
x2:=b;
dx:=0.1;
x:=x1;
i:=0;
while x<=x2 do
 begin
  x11:=x;
  x12:=x+dx;
  if f(x11)*f(x12)<0 then
   begin
    i:=i+1;
    writeln('X',i,'=',newton(f,g,x11,x12):8:5);
   end;
  x:=x+dx;
 end;
end;
begin
korni(f1,pf1,6,9);
korni(f2,pf2,-2,2);
korni(f3,pf3,3,9);
end.