Процедуры: Если все корни одного из уравнений a1x^2+b1x+c1=0, a2x^2+b2x+c2=0 больше корней другого уравнения, то выдать на экран 1

program prog108;
uses Crt;
 
{процедура вычисления квадратных уравнений y=a*x*x+b*x+c}
procedure QE(a,b,c:integer; var r1, r2:real; k:integer);
var
   d:real;
 begin
   d:=sqr(b)-4*a*c;
   if d>0 then
   begin
     k:=2;
     r1:=(-b-sqrt(d))/(2*a);
     r2:=(-b+sqrt(d))/(2*a);
     writeln(r1:4:2,' ', r2:4:2);
   end
   else
   begin
     if d=0 then
     begin
       k:=1;
       r1:=(-b)/(2*a);
       writeln(r1:4:2);
     end
     else begin
       k:=0;
       writeln('*корней нет!')
   end;
   writeln('количество корней:',k);
end;
end;
 
 
 var
    a1,b1,c1,a2,b2,c2:integer;
    n11, n21,n12,n22:real;
    n1,n2:integer;
 begin
 ClrScr;
    writeln('квадратное уравнение  N1: a1*x*x+b1*x+c1=0');
    writeln('введите числа* (a1,b1,c1)<>0');
    readln(a1,b1,c1);
    writeln('корни 1-го ур.:');
    QE(a1,b1,c1,n11,n21,n1);
    writeln;
    writeln('квадратное уравнение N2: a2*x*x+b2*x+c2=0');
    writeln;
    writeln('введите числа* (a2,b2,c2)<>0');
    readln(a2,b2,c2);
    writeln('корни 2-го ур.:');
    QE(a2,b2,c2,n12,n22,n2);
    writeln;
    if (n1>0) and (n2>0) then
    begin
     if ((n11>n12) and (n11>n22) and (n21>n12) and (n21>n22)) or
     ((n12>n11) and (n12>n21) and (n22>n11) and (n22>n21)) then begin
      writeln('получаем:',1); end
     else
      writeln('получаем:',0);
    end
    else begin
    if (n1=0) or (n2=0) then begin
 
        writeln('получаем:',0)
    end;
   end;
 
    readkey; end.