Програмисты, помогите! В Турбо Паскаль составить программу для решения квадратного уравнения(ax^2+bx=c)

{Программа решает квадратные уравнения}
{Created by Shkurihin Vadim }
{Please visit my site http://far.by.ru/ }
program Kvad_Urav;
uses Crt;
var
a,b,c :real;{a,b,c - коэффициенты многочлена}
d,x1,x2 :real;{d - дискрименант, x1,x2 - корни уравнения}

begin
ClrScr;
Writeln('Решаем следующее уравнение: a*x^2 + b * x + c = 0');
Write('Введи значение a:>');Readln(a);
Write('Введи значение b:>');Readln(b);
Write('Введи значение c:>');Readln(c);
if a=0 then begin {если старший коэффициент равен 0, то уравнение превращается
в линейное, тогда решаем линейное уравнение}
if b=0 then begin
if c=0 then Writeln('Бесконечное число решений');
if c<>0 then Writeln('Корней нет');
end
else Writeln('x = ',-c/b:4:4);
end
else begin {иначе}
d:=sqr(b) - 4*a*c; {находим дискрименант}
if d<0 then Writeln('Корней нет'); {если d<0, то корней нет}
if d=0 then Writeln('x = ',-b/(2*a):4:4); {если d=0, то 1 корень}
if d>0 then begin {если d>0, то 2 различных корня}
x1:= (-b - sqrt(d))/(2*a); {находим x1}
x2:= (-b + sqrt(d))/(2*a); {и x2}
Writeln('x1 = ',x1:4:4); {выводим на экран результат}
Writeln('x2 = ',x2:4:4);
end;
end;
ReadKey; {ожидание нажатия на клавишу}
end.

program linkwadr;
var a,b,c,x,x1,x2:real;
k,n,p:integer;

procedure kwadr (e,f,g:real; var x1,x2:real; var p:integer);
var d:real;
begin
d:=f*f-4*e*g;
if d<0 then p:=0
else begin
e:=e*2;
if d=0
then begin p:=1;
x1:=-f/e end
else begin
p:=2;
d:=sqrt (d);
x1:=(-f+d)/e;
x2:=(-f-d)/e;
end;
end;
end;

procedure linear (var f,x1,g:real; var p:integer);
begin
if f<>0 then begin
x1:=-g/f;p:=1;
end;
if f=0 then begin
if g=0 then p:=0;
if g<>0 then p:=3;
end;
end;

begin
writeln ('Programma dlya reshniya kvadratnih uravnenii');
writeln ('vida: ax^2+bx+c=0');
write ('a= ');read (a);
write ('b= ');read (b);
write ('c= ');read (c);
if a=0
then linear (b,x1,c,p)
else kwadr (a,b,c,x1,x2,p);
writeln ('Uravnenie s koeffichientami',a,b,c);
case p of
0: writeln ('ne imeet reshniya');
1: writeln ('imeet odno reshenie',x1);
2: writeln ('imeet dva resheniya',x1,x2);
3: writeln ('imeet beskonechnoe mnozhestvo reshenii');
end;
readln;
end.

да чо там решать, подставить числа в формулу