В программе заменить функцию goto

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

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