Вывести в файл тех студентов, кто родился летом

uses crt;
type z=record
fio:string[20];
day:1..31;
month:1..12;
god:integer;
end;
var
leto:file of z;
stud:array [1..100] of z;
i,n:integer;
 
begin
writeln;
write('ââåäèòå êîëè÷åñòâî ñòóäåíòîâ');
readln(n);
assign(leto,'leto.txt');
rewrite (leto);
writeln ('Ô.È.Î.',stud.fio);
writeln('÷èñëî ðîæäåíèÿ',stud.day);
writeln('ìåñÿö ðîæäåíèÿ',stud.month);
writeln('ãîä ðîæäåíèÿ',stud.god);
for i:=1 to mes do
begin
if (mes=6 or mes=7 or mes=8) then
writeln(leto,mes);
end;
close (leto);
end.

uses crt;
type z=record
fio:string[20];
day:1..31;
month:1..12;
god:integer;
end;
var
f,leto:file of z;
stud:z;
i,n:integer;
begin
writeln;
write('введите количество студентов');
readln(n);
assign(f,'in.txt');
rewrite (f);
For i:=1 to n do
Begin
writeln('Введите информацию о ',i,' студенте: ');
write ('Ф.И.О. - ');readln(stud.fio);
write ('число рождения - ');readln(stud.day);
write ('месяц рождения - ');readln(stud.month);
write ('год рождения - ');readln(stud.god);
write(f,stud);
End;
Reset(f);
assign(leto,'leto.txt');
rewrite (leto);
For i:=1 to n do
Begin
  read(f,stud);
  if (stud.month=6)or(stud.month=7)or(stud.month=8) then write(leto,stud);
End;
Close(f);close (leto);
end.