помогите дорешать и поправить программу на паскале

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

program bikkiv;

var

procedure ur (var a, b, c, x1, x2) ;

var

D:real

bedin

D:=b*b-4*a*c;

if D<0 then writeln ('корней нет')

else D=0 then x:=-b / (2+a)

else

begin

x1:=-b-sqrt (D) / 2a;

x2:=-b+sqrt (D) / 2a;

end;

end;

begin

readln (a1, b1, c1, t1, t2) ;

ur (f1, b1, c1, t1, t2) ;

Var a, b, c, y1, y2, d, i:real;

begin

read (a, b, c) ;

d:=b*b-4*a*c;

if d>0 then

begin

y1: = (-1*b+sqrt (d)) / (2*a) ;

y2: = (-1*b-sqrt (d)) / (2*a) ;

if y1>=0 then

begin

writeln (sqrt (y1)) ;

writeln (sqrt (y1) * - 1) ;

end;

if y2>=0 then begin

writeln (sqrt (y2)) ;

writeln (sqrt (y2) * - 1) ;

end;

end else

if d=0 then

begin

y1: = (-1*b) / (2*a) ;

if y1>=0 then begin

writeln (sqrt (y1)) ;

writeln (sqrt (y1) * - 1) ;

end;

end

else

writeln ('Корней нет') ;

end.