Проблемы чтения из файла - Free Pascal

Узнай цену своей работы

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

Здравствуйте, более опытные товарищи паскальщики. Есть проблема, решения которой я не нашел самостоятельно. Есть программа, целью которой есть извлечение данных из текстовых файлов, расчеты и запись их результатов в другой текстовый файл. Всю программу приводить не буду, приведу урезанный вид с проблемным участком.
uses crt,dos;
VAR 
     Fi:array [1..72] of integer;
     P:array [1..72] of real;
     f2: text;
procedure ind;
  begin
   textcolor(6);
   writeln(' Список файлов с индикаторными диаграммами:');
   ShowDir('*.ind');
   textcolor(10);
   writeln;write('Введите имя требуемого файла:');
   readln(name3);
   assign(f2,name3);
   reset(f2);
   i:=0;
   repeat i:=i+1;
    readln(f2,fi[i],P[i]);
   until i=72;
   close(f2);
  end;
Файл с расширением *.ind представляет собой текстовый файл с двумя столбцами чисел:
fi[i]    P[i]
0    0.10
10    0.90
20    0.90
30    0.90
40    0.90
50    0.90
60    0.90
.....
Проблема в том, что после ввода имени файла, программа прекращает работу и выдает ошибку 106 - недопустимый формат целого числа. Скажите пожалуйста, почему возникает эта ошибка, и как исправить код, чтобы она более не возникала?

Решение задачи: «Проблемы чтения из файла»

textual
Листинг программы
fi[i]    P[i]

Оцени полезность:

14   голосов , оценка 4.071 из 5
Похожие ответы