Ошибка 100: Ошибка чтения с диска - Turbo Pascal

Формулировка задачи:

Здравствуйте. Подскажите, в чем причина? При запуске программы выдает ошибку чтения с диска. Сразу скажу, код не мой, поэтому строго не судите, в паскале я нуль.

                    Листинг программы
                
 
                        
                          
                    
Program Real_min_max;
 Uses CRT;  
 Var c:File of Real; 
   i,j:Real;
 Procedure Max_r;
  Begin
     Reset(c); 
     Read(c,i);  
     Read(c,j);
   Repeat         
     If i>j Then Read(c,j) Else
      Begin
       i:=j;
       Read(c,j);
      End;
   Until eof(c);
  End;
 Procedure Min_r;
    Begin
     Reset(c);
     Read(c,i);
     Read (c,j);
   Repeat    
     If i<j Then Read(c,j) Else
      Begin
       i:=j;
       Read(c,j);
      End;
   Until eof(c);
  End;
Begin
 ClrScr;      
 Assign(c,'real.txt');
 Reset(c); 
 Writeln('Ishodnaya posledovatelnost:');    
 While not EOF(c) Do
     Begin
     Read(c,i);
     Writeln(i);
     End;
 Max_r;
 Writeln;
 Writeln('Max item: ',i);
 Min_r;
 Writeln('Min item: ',i);
Close(c); 
Readkey;
 End.

Решение задачи: «Ошибка 100: Ошибка чтения с диска»

Листинг программы

var a:file of real;
   b:real;
begin
  assign(a,'a.txt');
  rewrite(a);
  b:=1.26021;
  write(a,b);
  close(a)
end.

Объяснение кода листинга программы

В начале кода объявляются две переменные типа file of real: a и b.
Затем происходит назначение имени файла для переменной a с помощью функции assign.
Функция rewrite используется для перезаписи содержимого файла a.
Значение переменной b присваивается 1.26021.
С помощью функции write содержимое переменной b записывается в файл a.
Наконец, файл a закрывается с помощью функции close.