5 квадратных уравнений в программе

var
  a, b, c, ds, x1, x2 : real;
 I:integer;
procedure Solve(var n1, n2 : real);
begin
  n1 := (-b + sqrt(ds)) / (2 * a);
  n2 := (-b - sqrt(ds)) / (2 * a);
end;
 
function D(n1, n2, n3 : real) : real;
begin  
  D := sqr(n2) - 4 * n1 * n3;
end;
 
begin
for I:=1 to 5 do
begin
  repeat
    writeln('введите коэффициенты квадратного уравнения');
    readln(a, b, c);
    if (a = 0) and (b = 0) then
      if (c = 0) then 
      begin
        writeln('уравнение имеет бесконечное количество корней');
        exit      
      end
      else
      begin
        writeln('данное выражение - неверное тождество');
        exit
      end;
  until (a <> 0) or (b <> 0); {проверяем чтобы вообще были неизвестные}
  ds := D(a, b, c);
  if a = 0 then writeln('уравнение не является квадратным, его корень : ', (-c / b):6:2) else
    if ds < 0 then writeln('вещественных корней нет') else
    begin
       Solve(x1, x2);
       if ds = 0 then writeln('корни квадратного уравниеия: ', x1:6:2, ' кратности 2') else
        writeln('корни квадратного уравниеия: ', x1:6:2, x2:6:2)
    end;
  readln
end;
end.

var
  a, b, c, ds, x1, x2: real;
  I: integer;
 
procedure Solve(var n1, n2: real);
begin
  n1 := (-b + sqrt(ds)) / (2 * a);
  n2 := (-b - sqrt(ds)) / (2 * a);
end;
 
function D(n1, n2, n3: real): real;
begin
  D := sqr(n2) - 4 * n1 * n3;
end;
 
begin
  for I := 1 to 5 do
  begin
    repeat
      writeln('введите коэффициенты квадратного уравнения');
      readln(a, b, c);
      if (a = 0) and (b = 0) then
        if (c = 0) then
        begin
          writeln('уравнение имеет бесконечное количество корней');
          exit
        end
        else
        begin
          writeln('данное выражение - неверное тождество');
          exit
        end;
    until (a <> 0) or (b <> 0); {проверяем чтобы вообще были неизвестные}
    ds := D(a, b, c);
    if a = 0 then writeln('уравнение не является квадратным, его корень : ', (-c / b):6:2) else
    if ds < 0 then writeln('вещественных корней нет') else
    begin
      Solve(x1, x2);
      if ds = 0 then writeln('корни квадратного уравниеия: ', x1:6:2, ' кратности 2') else
        writeln('корни квадратного уравниеия: ', x1:6:2, x2:6:2)
    end;
    readln
  end;
end.