ругается на кол-во памяти

[hunner]

есть программа, почему-то не запускается при запуске пишет: disk is not ready in drive Е

PROGRAM Ex1;
Uses Crt; 
Const
eps1 = 0.01; { Точность 10-2}
eps2 = 0.01; { Точность 10-3 }
eps3 = 0.001; { Точность 10-4 }
a = -0.6; { Начальное значение Х}
b = 0.05; { Шаг}
N = 20; { Количество значений функции }
Var
k1, k2, k3, i: Integer; {Вспомогательные переменные}
f1, f2_1, f2_2, f2_3, step, slag, x: Real;

BEGIN
ClrScr;
{Рисуется шапка таблицы}
 writeln('_______________________________________________________');
 writeln('|              |                          | e=0.01       |  e=0.001    |  e=0.0001       |');
 writeln('|    x        |    f1(x)              |-------- ------|--------------|------------------|');
 writeln('|              |                          | f2(x)   | N  | f2(x)     | N |  f2(x)       |  N |');
 writeln('|_______|_____________|______|___|_______|___|________|___|');
 x := a;  {Начальное значение Х}
 for i:=1 to N do
 begin
    f1:=2*x/3+2*x/9-x/3*ln(1-x)-2/3*arctan(x); { Вычисляется значение функции f1}
{ Вычисляется значения функции f2}
   step:=exp(x*ln(5));  {Начальное значение степени Х}
   f2_1:=0;  {Начальное значение функции f2_1}
   k1:=0;
   repeat     {Итерационный цикл для точности 10-2}
     inc(k1);
     step:=step*exp(x*ln(2));
     slag:=step/(k1*(2*k1+3));
     f2_1:=f2_1+slag;
   until abs(slag)<=eps1;
   f2_2:=f2_1;
   k2:=k1;
   repeat
     inc(k2);
     step:=step*exp(x*ln(2));
     slag:=step/(k1*(2*k1+3));
     f2_2:=f2_2+slag;
   until abs(slag)<=eps2;
   f2_3:=f2_2;
   k3:=k2;
   repeat
     inc(k3);
    step:=step*exp(x*ln(2));
     slag:=step/(k1*(2*k1+3));
     f2_3:=f2_3+slag;
   until abs(slag)<=eps3;
{ Вывод результатов}
   writeln('| ', x:5:2,' | ',f1:12:9,'| ',f2_1:5:2,'| ',
   k1:2,'| ',f2_2:6:3,'| ',k2:2,'| ',f2_3:7:4,'| ', k3:2,'|');
   x:=x+b;
 end;
{ завершение таблицы }
 write('------------------------------------------------------------------------------');
 ReadKey
END.