Заменить в программе if на case

Program cwadr (input, output);
label 20;
var a, b, c, d, e, d1, x, x1, x2 : real;
begin
writeln ('введите a, b, c'); readln (a, b, c);
if a=0 then begin
if b=0 then begin
if c=0 then begin
writeln ('x-любое число');
goto 20;
end;writeln ('решений нет');
goto 20;
end;
writeln ('корень один x= ', x);
goto 20;
end;
d:= b*b-4*a*c;
e:= 2*a;
if d=0 then begin
writeln ('корни кратные х1 = х2 = ', -b/e);
goto 20;
end;
d1:= sqrt (abs (d));
if d<0 then begin
writeln ('корни комплексно-сопряженные');
writeln ('x1 = ', -b/e, ' -i* ', d1/e);
writeln ('x2 = ', -b/e, ' +i* ', d1/e);
goto 20; end;
writeln ('корни действительные');
writeln ('x2 = ', ( - b+d1)/e );
writeln ('x1 = ', ( - b+d1)/e );
20;
end

if условие then
  нечто_1 
else
  нечто_2;

case условие of
true:
  нечто_1;
false:
  нечто_2;
end;

case условие of
true:
  нечто_1;
else
  нечто_2;
end;

procedure SolveSqEq(a, b, c: Real);
var
  d, e, f: Real;
begin
  case a=0 of
  true: 
    case b=0 of
    true:
      case c=0 of
      true:
        WriteLn('x - любое число');
      false:
        WriteLn('решений нет');
      end;
    false:
      WriteLn('корень один, x = ',-c/b);
    end;
  false:
    begin
      d:=b*b-4*a*c;
      e:=2*a;
      case d=0 of
      true:
        writeln ('корни кратные, х1 = х2 = ', -b/e);
      false:
        begin
          f:=sqrt(abs(d));
          case d<0 of 
          true:
            begin
              WriteLn ('корни комплексно-сопряженные');
              WriteLn ('x1 = ', -b/e, ' -i* ', f/e);
              WriteLn ('x2 = ', -b/e, ' +i* ', f/e);
            end; 
          false:
            begin
              WriteLn('корни действительные');
              WriteLn('x1 = ', (-b+f)/e);
              WriteLn('x2 = ', (-b-f)/e);
            end;
          end;
        end;
      end;
    end;
  end;
end;
 
var a, b, c: Real;
begin
  Write('Введите a, b, c: '); ReadLn(a,b,c);
  SolveSqEq(a,b,c);
end.

ci := (((ord(a = 0) * 2) + ord(b = 0) * 2) + ord(d < 0) * 2) + ord(d = 0);
case ci of
  1..5: //...
  7: //...
  15: //...
  else //...
end;