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

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(Дискриминант  readln;
end.