Чтение данных из файла. Free Pascal

[avatar54]

Условия задачи : Несколько школьников выстроились в шеренгу. Для каждого школьника известна дата рождения(день). Требуется: определить номер третьего из школьников, дни рождения которых являются чётными числами. Нужно составить программу, которая будет читать даты рождения школьников из файла и результат программы выведет в этот же файл.
Код программы

var i,k,a:integer; 
p:array[1..60] of integer; 
begin 
Randomize; repeat
writeln('Введите кол-во школьников в шеренге ');
read(a);
until (a>=1)and (a<=60); 
For i:=1 to a do 
begin 
p[i]:=1+Random(31); 
Write(p[i]:2,' '); 
end; 
Writeln; 
Writeln; 
k:=0;i:=1; while(k<>3) and (i<=a) do begin 
If p[i] mod 2=0 then 
k:=k+1; i:=i+1;end;if k=3 then 
Write(i-1:2,' ') else write('net'); 
Writeln; 
Readln; 
end.

[Serge_Bliznykov]

Сообщение от avatar54

которая будет читать даты рождения школьников из файла

а где, простите, чтение из файла?


всё остальное, на мой взгляд, вполне работоспособно.
Вот только форматирование, мягко говоря, странное и не очень наглядное.

[avatar54]

нужно что бы даты задавались не массивом , а брались из файла

[Serge_Bliznykov]

Сообщение от avatar54

нужно что бы даты задавались не массивом , а брались из файла

ясно.
А что не получается?
Не знаете, как описывается файл (точнее файловая переменная) в программе?
или как связать эту файловую переменную с реальным файлом на диске?
или как этот файл открыть?
Или как из него читать?

Кстати, я бы взял текстовый файл в котором данные о дате рождения мальчиков расположены построчно (каждая дата - это отдельная строка файла)
Так проще читать.

Ну и массив в данной задаче совсем не нужен.