Найдите пожалуйста ошибки и исправьте! Решение квадратного уравнения на Паскале

 program QuadraticEquation; 
var 
  a, b, c: real; 
  discr: real; 
begin 
  writeln('Введите коэффициенты a, b и c:'); 
  readln(a, b, c); 
 
  discr := b * b - 4 * a * c; 
 
  if a = 0 then 
  begin 
    if b = 0 then 
      writeln('Уравнение не является квадратным уравнением.') 
    else 
      writeln('Корни уравнения: x = ', -c / b); 
  end 
  else 
  begin 
    writeln('Дискриминант уравнения: D = ', discr); 
    if discr > 0 then  
      writeln('Корни уравнения: ', -b / (2 * a), ' и ', sqrt(discr) / (2 * a)); 
    if discr = 0 then  
      writeln('Два равных корня уравнения: x = ', -b / (2 * a) / 2);