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

uses crt;
var
  a, b, c, d, x1, x2, x3, x4, t1, t2: real;
begin
  writeln('Программа для решения биквадратного уравнения вида ax^4+bx^2+c');
  write( 'введите а=');
  readln(a);
  write('введите b= ');
  read(b);
  write('введите c= ');
  read(c);
  d := b * b - 4 * a * c;
  if d < 0 then writeln('Уравнение не имеет действительных корней')
  else
  begin
    t1 := (-b + sqrt(d)) / (2 * a);
    t2 := (-b - sqrt(d)) / (2 * a);
    if (t1 > 0) and (t2 > 0) then write(x1 = sqrt(t1), x2 = sqrt(t2) );
  end;
  if (t1 < 0) then writeln('x1 и x2 не действительные корни')
  else
  begin;
    if (t2 < 0) then write('x2 и x4 не действительные корни')
  end;
  if t1 > 0 then x1 := sqrt(t1);x2 := -x1;
  write('x1=', x1, ';', 'x2=', x2, ';');
  begin
    if t2 > 0 then x3 := sqrt(t2); x4 := -x3;
    write('x3=', x3, ';', 'x4=', x4, '.');
  end;
end.