Напишите программу, по которой из текстового файла с именем kvur.txt будут прочитаны три числа а, b, с — коэффициенты квадратного уравнения,

Program Praktik8;
Uses crt;
Var a, b, c, d, x1, x2: real;
    G: text;
Begin
    Assign (G,'kvur.txt');
    Reset(G);
    Readln (G,a,b,c);
    Close(G);
    d:=sqr(b)-4*a*c;
        if d > 0 then
        begin
             x1:=(-b+sqrt(d))/(2*a);
             x2:=(-b-sqrt(d))/(2*a);
             Assign (G,'korni.txt ');
             Rewrite (G);
             Writeln (G,'2 корня ', x1:7:2, x2:7:2);
             Close(G);
             Writeln ('2 корня ', x1:7:2, x2:7:2)
        end
else if d = 0 then
             begin
               x1:=-b/(2*a);
               Assign (G,'korni.txt ');
               Rewrite (G);
               Writeln (G,'1 корень ', x1:7:2);
               Close(G);
               Writeln ('1 корень ', x1:7:2)
             end
               else
                 begin
                    Assign (G,'korni.txt ');
                    Rewrite (G);
                    Writeln (G,‘нет корней');
                    Close(G);
                    Write (‘нет корней')
                 end;
    Readkey
End.