Не корректный вывод у программы. Работает правильно, выводит нужное, но на "неизвестном" языке хд

type
  z = record
    fio: string[20];
    day: integer;
    month: integer;
    god: integer;
  end;
 
var
  f, g: file of z;
  stud: z;
  i, n: integer;
 
begin
  writeln;
  
  write('введите количество студентов: ');
  
  readln(n);
  
  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);
 
  end;
  
  assign(g, 'output.txt');
  rewrite(g);
  
  for i := 1 to n do
  begin
  
    if (stud.month = 6) or (stud.month = 7) or (stud.month = 8) then write(g, stud);
  end;
  close(g);
end.

reset(g);
while not eof(g) do 
 begin
  read(g,stud);
  writeln(stud.fio,' ',stud.day,'.',stud.month,'.',stud.god);
 end;
close(g);

  assign(g, 'output.txt');
  rewrite(g);
  reset(g);
  
  while not eof(g) do
  begin
    read(g, stud);
    writeln(stud.fio, ' ', stud.day, '.', stud.month, '.', stud.god);
  end;
  
  for i := 1 to n do
  begin
    
    if (stud.month = 6) or (stud.month = 7) or (stud.month = 8) then write(g, stud);
  end;
  close(g);

while not eof(g) do
  begin
    read(g, stud);
     if stud.month in [ 6..8] then   writeln(stud.fio, ' ', stud.day, '.', stud.month, '.', stud.god);
  end;

while not eof(g) do
  begin
    read(g, stud);
     if stud.month in [ 6..8] then   writeln(stud.fio, ' ', stud.day, '.', stud.month, '.', stud.god);
  end;

type
  z = record
      fio: string[20];
      day: integer;
      month: integer;
      god: integer;
      end;
var
  f: file of z;
  stud: z;
  n,i,k: integer;
begin
 write('введите количество студентов n=');
 readln(n);
 assign(f,'studenty');
 rewrite(f);
 for i := 1 to n do
 with stud do
  begin
   writeln('Введите информацию о ',' ', i,'  ', 'студенте: ');
   write('Ф.И.О. - '); readln(fio);
   write('число рождения - '); readln(day);
   write('месяц рождения - '); readln(month);
   write('год рождения - '); readln(god);
   write(f,stud);
  end;
writeln('Полный список студентов');
reset(f);
while not eof(f) do
 begin
  read(f,stud);
  with stud do
  writeln(fio,'  ',day,'.',month,'.',god);
 end;
writeln('Список студентов родившихся в летние месяцы');
reset(f);
k:=0;
while not eof(f) do
 begin
  read(f,stud);
  if stud.month in [6..8] then
   begin
    k:=1;
    with stud do
    writeln(fio,'  ',day,'.',month,'.',god);
   end;
 end;
close(f);
end.