Чтение файла оформляется в виде подпрограммы PROCEDURE. Общая структура подпрограммы:
{Подпрограмма открытия файла}
PROCEDURE OPEN F(VAR a: MAS; VAR K: INTEGER);
.……………….…..
описание переменных
……………………
F: FILE OF REAL;
BEGIN
ASSIGN(F, ‘Fd.DAT’);
RESET(F);
K: = FILESIZE(F) – 1;
FOR……………….
READ(F, a[i]);
Вывод на экран для контроля
END;
CLOSE(F);
END.
Внимание. Начиная с подпрограммы чтения данных из файла, целесообразно писать всю программу, добавляя шаг за шагом необходимые переменные и процедуры.
