Поясните задачу... Дайте советы по её реализации

[SWAT92Shtorm]

uses crt,graph;
var
A,B,C,buf,xmin,xmax:real;
X1, X2: real;
x,y:integer;
D:real; GraphDriver, GraphMode : Integer; errcode:integer;
begin
clrscr;
textcolor(6);
writeln ('‚ў®¤ A,B,C'); readln (A,B,C);


D:=B*B-4*A*C;

if D<0 then
begin
textcolor(4);
writeln ('Љ®а*Ґ© *Ґв, в.Є ¤ЁбЄаЁ¬Ё***в ¬Ґ*миҐ *®«п ',d:6:3,' < ',0);
readln;
exit;
end;
if D=0 then
begin
textcolor(4);
writeln ('Љ®а*Ё а*ў*л, в.Є ¤ЁбЄаЁ¬Ё***в а*ўҐ* *®«о: ',d:6:3,' = 0', 'x1,x2 = ',-B/2*A:6:3);
end;

textcolor(6);
writeln('„ЁбЄаЁ¬Ё***в а*ўҐ* = ', D:6:3);

D:=Sqrt(D);
x1:=(-B+D)/2*A;
x2:=(-B-D)/2*A;
textcolor(5);
writeln ('X1=', x1:6:3);
writeln ('X2=', x2:6:3);

if x1>x2 then xmax:=x1;
if x1<x2 then xmin:=x2;
if x1=x2 then xmax:=x1; xmin:=x2;
textcolor(4);
writeln('xmin ',xmin:6:3);
writeln('xmax ',xmax:6:3);
textcolor(3);


max:=round(xmax);
min:=round(xmin);

textcolor(2);
writeln('Ќ*¦¬Ё*Ґ Enter ');
readln;

GraphDriver := Detect;
errcode:=GraphResult;
InitGraph(GraphDriver, GraphMode, 'D:\tp\bgi');
if errcode = grOk then

line(200,240,500,240);{x}
line(340,100,340,400);{y}

x:=340;
y:=240;



putpixel(x+min,340,5);
putpixel(x+max,340,5);
end;
readln;

end.

Извените если тут ошибочка где то! Я не компилировал писал прямо тут ! Если у кого будут вопросы пишите я дороботаю и объясню что и как здесь =)