Проблемы чтения из файла - Free Pascal
Формулировка задачи:
Здравствуйте, более опытные товарищи паскальщики.
Есть проблема, решения которой я не нашел самостоятельно.
Есть программа, целью которой есть извлечение данных из текстовых файлов, расчеты и запись их результатов в другой текстовый файл. Всю программу приводить не буду, приведу урезанный вид с проблемным участком.
Файл с расширением *.ind представляет собой текстовый файл с двумя столбцами чисел:
Проблема в том, что после ввода имени файла, программа прекращает работу и выдает ошибку 106 - недопустимый формат целого числа.
Скажите пожалуйста, почему возникает эта ошибка, и как исправить код, чтобы она более не возникала?
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;
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 .....
Решение задачи: «Проблемы чтения из файла»
textual
Листинг программы
fi[i] P[i]