Ветвление и циклы. Паскаль

Program b2;
Var a,b,c,D,x1,x2 : Real;
f:Integer;
Begin
Readln(a,b,c);{Ввод a,b,c}
If a<=0 Then {Если a<=0 то}
   repeat {Ввод a}
   WriteLn('BBEDUTE a>0');
   Readln(a);
   until a>0;
D:=sqr(b)-(4*a*c);{Вычисление дискриминанта}
IF D<0 Then Writeln('KORHEU HET');{Если дискриминант меньше 0 вывести корней нет}
IF D=0 Then{Если D=0}
    begin
    x1:= ((-1*b)+sqrt(D))/(2*a); {Вычисление x1}
    If x1>0 Then writeln('2 RAZLU4HbIX KORH9 x1=',sqrt(x1),' x2=',-sqrt(x1))
    Else writeln('KORHEU HET');{Если x1>- вывести}
    End;
If D>0 Then{Если дискриминант больше 0 то}
    begin
    x1:= ((-1*b)+sqrt(D))/(2*a);{Вычисление x1,x2}
    x2:= ((-1*b)-sqrt(D))/(2*a);
    If x1>0 Then 
      begin 
         f:=f+2; 
         writeln(' x1=',sqrt(x1),' x2=',-sqrt(x1));
      End;{Вычисление x1}
    IF x2>0 Then begin f:=f+2; write(' x3=',sqrt(x2),' x4=',-sqrt(x2));End; {вычисление x2}
    If (x1<0) AND (x2<0) Then writeln('Korheu HET');{Если x1 и x2 отличны от 0 вывести корней нет}
    Writeln('  ',f,'  RAZLU4HbIX KORH9');{Вывод кол-ва корней}
    End;
Readln;
End.

uses crt;
var a,b,c,x1,x2,x3,x4,t,t1,t2,d:real;
begin
  clrscr;
  write('a=');readln(a);
  write('b=');readln(b);
  write('c=');readln(c);
  if a=0 then
    begin
     write('Это не биквадратное уравнение');
     readln;
     exit;
    end;
  d:=(b*b-4*a*c);
  if d<0 then
    begin
      writeln('net resheniy');
      readln;
      exit;
    end else
  if d=0 then
     begin
       t:=-b/(2*a);
       if t<0 then
         begin
           writeln('net resheniy');
           readln;
           exit;
         end else
       if t=0 then writeln('resh ur x1=x2=x3=x4=0')
       else if t>0 then writeln('x1=x2=',sqrt(t):5:2,' x3=x4=',-sqrt(t):5:2);
     end else
  if d>0 then
     begin
        t1:=(-b+sqrt(d))/(2*a);
        t2:=(-b-sqrt(d))/(2*a);
        if (t1>0)and(t2<0)then writeln('x1=',sqrt(t1):5:2,' x2=',-sqrt(t1):5:2)
        else if (t1<0)and(t2>0)then writeln('x1=',sqrt(t2):5:2,' x2=',-sqrt(t2):5:2)
        else if (t2>0)and(t1>0) then writeln('x1=',sqrt(t1):5:2,' x2=',-sqrt(t1):5:2,' x3=',sqrt(t2):5:2,' x4=',-sqrt(t2):5:2);
     end;
readln
end.