Ошибка. Опции

[Lykash]

Вот у меня есть задача...
что сдесь не правильно в этом рядке until (e>=e-10)and(e>=e-4);

uses crt;
var x,u,e,t:real;
i:integer;
begin
clrscr;
write('x=');
readln(x);
repeat
write('Введите точность от 10^-4 до 10^-10 e=');
readln(e);
until (e>=e-10)and(e>=e-4);
i:=0; {нулевой индекс}
u:=1; {начальное значение итоговой суммы}
t:=1;{знчение члена ряда при i=0}
while abs(t)>=e do {пока модуль очердного члена ряда не меньше точности}
begin
i:=i+1;{следующий член}
t:=t*x/i;{домножаем на х(возводим в степень) и делим на индекс(обратный факториал)}
u:=u+t;{суммируем}
end;
writeln('U=',u:0:10);
writeln('Достигнутая точность=',abs(t):0:10);
write('Вычисленное значение функции=',exp(x):0:10);
readln
end.