найти дискриминант квадратного уравнения, если коофициент вводится с клавиатуры

var a, b, c, e, f: integer;  d, x1, x2: real;begin write('Введите коэффициент x^2: '); readln(a); write('Введите коэффициент x: '); readln(b); write('Введите свободный член: '); readln(c); d:=b*b-4*a*c; if (d>=0) then begin  x1:=(-b+sqrt(d))/(2*a);  x2:=(-b+sqrt(d))/(2*a);  write('Уравнение имеет 2 корня:  ');  writeln;  writeln('Первый корень: ',x1:4:2);  writeln('Второй корень: ',x2:4:2); end else writeln('Дискриминант < 0'); readln;end.