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

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

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);