Нужен код решения квадратного уравнения по теореме Виета - Turbo Pascal

uses crt;
var a,b,c,x1,x2,d:real;
begin
clrscr;
writeln('Введите коэффициенты a,b,c уравнения, a<>0:');
repeat
write('a=');readln(a);
until a<>0;
write('b=');readln(b);
write('c=');readln(c);
b:=-b/a;
c:=c/a;
{проведем вне программы преобразования
 x1+x2=-b;
 x1*x2=c;
 x1*(-x1-b)=c;
 x1^2+b*x1+c=0}
d:=b*b-4*c;
if d<0 then
  begin
   writeln('Уравнение не имеет решений!');
   readln;
   exit;
  end;
x1:=(-b+sqrt(d))/2;
x2:=x1+b;
write('x1=',x1:0:2,'  x2=',x2:0:2);
readln
end.