Дан файл, содержащий различные даты

Type date = record  
day: byte; 
mouth: byte; 
age: integer; 
end; 
dt=array[1..100] of date; f=file of date; 
var s:dt; n:byte; 
 
procedure inp(var n:byte; var s:dt); 
var i:byte; 
begin 
for i:=1 to n do 
with s[i] do 
begin 
day:=random(1,30); 
mouth:=random(1,12); 
age:=1940+i*4; 
end; 
end; 
 
procedure inp_f(s:dt;n:byte;var fi:f); 
var i: integer; 
begin 
rewrite(fi); 
for i:=1 to n do 
begin 
write(fi, s[i]); 
end; 
close(fi); 
end; 
 
procedure outp_f(var fi:f); 
var 
a:date; 
begin 
reset(fi); 
writeln('День ','Месяц ','Год'); 
while not eof(fi) do 
begin 
read(fi, a); 
writeln(a:5); 
end; 
close(fi); 
end; 
 
 
 
var fi:f; p:string; 
x:boolean;
a:date;
begin 
write('Введите кол-во дат: '); readln(n); 
assign(fi,'C:\PABCWork.NET\1.dat'); 
inp(n,s); 
inp_f(s,n,fi); 
outp_f(fi); 
end.

var fi:f; p:string; 
x:boolean;
a:date;
v:byte;
begin 
write('Введите кол-во дат: '); readln(n); 
assign(fi,'C:\PABCWork.NET\1.dat'); 
inp(n,s); 
inp_f(s,n,fi); 
outp_f(fi);
write('Введите номер месяца ваш: ');
readln(v);
assign(fi,'C:\PABCWork.NET\1.dat');
reset(fi);
writeln('Даты, в которых месяц совпадает с месяцем ваш:');
while not eof(fi) do
with a do
read(fi, a);
if mouth = v then writeln(day:3, mouth:3, age:5);
end;
close(fi) 
end.

Type date = record  
day: byte; 
mouth: byte; 
age: integer; 
end; 
dt=array[1..100] of date; f=file of date; 
var s:dt; n:byte; 
 
procedure inp(var n:byte; var s:dt); 
var i:byte; 
begin 
for i:=1 to n do 
with s[i] do 
begin 
day:=random(1,30); 
mouth:=random(1,12); 
age:=1940+i*4; 
end; 
end; 
 
procedure inp_f(s:dt;n:byte;var fi:f); 
var i: integer; 
begin 
rewrite(fi); 
for i:=1 to n do 
begin 
write(fi, s[i]); 
end; 
close(fi); 
end; 
 
procedure outp_f(var fi:f); 
var 
a:date; 
begin 
reset(fi); 
writeln('День ','Месяц ','Год'); 
while not eof(fi) do 
begin 
read(fi, a); 
writeln(a:5); 
end; 
close(fi); 
end; 
 
 
var fi:f; p:string; 
x:boolean;
a:date;
v:byte;
begin 
write('Введите кол-во дат: '); readln(n); 
assign(fi,'C:\PABCWork.NET\1.dat'); 
inp(n,s); 
inp_f(s,n,fi); 
outp_f(fi);
write('Введите номер месяца ваш: ');
readln(v);
assign(fi,'C:\PABCWork.NET\1.dat');
reset(fi);
writeln('Даты, в которых месяц совпадает с месяцем ваш:');
while not eof(fi) do
with a do
read(fi, a);
if (mouth=v) then writeln(day:3, mouth:3, age:5);
close(fi) 
end.

  while not eof(fi) do
    begin
      read(fi, a);
      if (a.mouth=v) then writeln(a.day:3, a.mouth:3, a.age:5)
    end;
  close(fi)
end.