Решение квадратного уравнения

=====================================
var
  
  fin: char;
  a, b, c: real;
  x1, x2, D: real;
 
label 1, 2, 3;
begin
  1: writeln('Введите коэффициенты a,b,c квадратного уравнения a*x*x+b*x+c=0: ');
  readln(a, b, c);
  if a = 0 then 
  begin
    writeln('a=0! Недопустимо!'); goto 1;
  end;
  D := b * b - 4 * a * c;
  if D < 0 then 
  begin
    writeln('Корней нет'); 
    goto 2;
  end
  else if D = 0 then
  begin
    x1 := -b / 2 / a;
    writeln('Корни совпадают: x1=x2=', x1);
    goto 2
  end
  else
  begin
    x1 := (-b - sqrt(D)) / 2 / a;
    x2 := (-b + sqrt(D)) / 2 / a;
    writeln('Корни: x1=', x1:0:3, ' x2=', x2:0:3); 
  end;
  2: begin
    writeln('Ещё?');
    readln(fin);
    if (fin = 'y') or (fin = 'Y') or (fin = 'Д') or (fin = 'д') then goto 1;
    3: write('Пока!')
    
  end;
end.

var
  fin: char;
  a, b, c: real;
  x1, x2, D: real;
 
begin
repeat
repeat
writeln('Введите коэффициенты a,b,c квадратного уравнения a*x*x+b*x+c=0: ');
readln(a, b, c);
if a = 0 then writeln('a=0! Недопустимо!');
until a<>0;
D := b * b - 4 * a * c;
if D < 0 then  writeln('Корней нет')
else if D = 0 then
 begin
  x1 := -b / 2 / a;
  writeln('Корни совпадают: x1=x2=', x1);
 end
else
begin
 x1 := (-b - sqrt(D)) / 2 / a;
 x2 := (-b + sqrt(D)) / 2 / a;
 writeln('Корни: x1=', x1:0:3, ' x2=', x2:0:3);
end;
writeln('Ещё?');
readln(fin);
until not(fin in ['y','Y','Д','д'])
end.

begin
  var fin := ReadChar;
  Writeln(fin='д');
end.