У многих возникают трудности при выводе и особенно вводе данных из файла. В олимпиадных задачах формат входных данных разнообразен, но соблюдается одно требование - в файле обязательно указано количество считываемых данных. Предлагаю вашему вниманию примеры считывания данных из файла.
Код
{ Связываем файловую переменную с конкретным файлом }
Assign( ifs, '<Полное или относительное имя файла>' );
{ Открываем файл для чтения }
Reset( ifs );
{ В первой строке точно указано количество элементов, считываем его в переменную N }
ReadLn( ifs, N );
{ Так как количество элементов известно, можно использовать цикл с параметром }
for i := 1 to N do
{ Считываем данные из файла в ячейку массива }
Read( ifs, A [i]);
{ Закрываем файл }
Close( ifs );