Найти корни квадратного уравнения

uses crt;
type urav=object
          a,b,c,x1,x2:real;
          procedure Vvod;
          procedure Korni;
          end;
procedure urav.Vvod;
begin
repeat
writeln('Введите коэффициенты квадратного уравнения:');
readln(a,b,c);
if a=0 then writeln('Это не квадратное уравнение, повторите ввод.');
until a<>0;
end;
 
procedure urav.Korni;
var d:real;
begin
d:=b*b-4*a*c;
if d<0 then writeln('Действительных корней нет!')
else if d=0 then
   begin
    x1:=-b/(2*a);
    writeln('x1=x2=',x1:0:2);
   end
else
  begin
   x1:=(-b-sqrt(d))/(2*a);
   x2:=(-b+sqrt(d))/(2*a);
   writeln('x1=',x1:0:2,'   x2=',x2:0:2);
  end;
readln
end;
var u:urav;
begin
clrscr;
u.vvod;
clrscr;
u.korni;
end.

uses crt;
type tlinur=object{линейное уравнение}
     a0,a1:real;{свободный член и коэффициент при х}
     k:integer; {количество корней - минус 1, 0, 1}
     x1:real; {значение корня}
     procedure init (a,b:real); {инициализация}
     procedure linur; {решение линейного уравнения}
     procedure print; {вывод решения на экран}
     end;
tkvur=object(tlinur){квадратное уравнение}
      a2,x2:real; {коэффициент при квадрате неизвестного и второй корень}
      procedure init(a,b,c:real); {инициализация}
      procedure kvur; {решение квадратного уравнения}
      procedure print2; {вывод решения на экран}
      end;
procedure tlinur.init(a,b:real);
begin
a1:=a;
a0:=b
end;
procedure tlinur.linur;
begin
if a1<>0 then
 begin
  k:=1;
  x1:=-a0/a1
 end
else if a0=0 then k:=-1
else k:=0
end;
procedure tlinur.print;
begin
case k of
-1:writeln('любое значение');
0:writeln('решений нет');
1: writeln('один корень=',x1:0:2)
end
end;
procedure tkvur.init(a,b,c:real);
begin
a2:=a;
a1:=b;
a0:=c
end;
procedure tkvur.kvur;
var d:real;
begin
if a2<>0 then
 begin
  d:=(sqr(a1)-4*a2*a0);
  if d>=0 then
   begin
    x1:=(-a1+sqrt(d))/(2*a2);
    x2:=(-a1-sqrt(d))/(2*a2);
    k:=2
   end
  else k:=0
 end
else linur
end;
procedure tkvur.print2;
begin
case k of
-1..1:print;
2:writeln('два корня x1=',x1:0:2,'  x2=',x2:0:2)
end
end;
var u:tkvur;
    a,b,c:real;
begin
clrscr;
writeln('Введите коэффициенты уравнения a и b одновременно не равны 0');
readln(a,b,c);
u.init(a,b,c);
u.kvur;
u.print2;
readln
end.