Файл содержит записи о дате. Указать максимальную дату для второй половины года

uses crt;
type data=record
          d,m,g:integer
          end;
var f:file of data;
    n,i,k:integer;
    d,mx:data;
begin
clrscr;
assign(f,'daty');
rewrite(f);
write('Сколько дат записать в файл n=');
readln(n);
for i:=1 to n do
 begin
  with d do
   begin
    writeln('Дата ',i);
    repeat
    write('День от 1 до 31: ');readln(d);
    until d in [1..31];
    repeat
    write('Месяц от 1 до 12: ');readln(m);
    until m in [1..12];
    repeat
    write('Год от 0 до 99: ');readln(g);
    until g in [0..99];
   end;
  write(f,d);
 end;
reset(f);
mx.d:=0;
mx.m:=0;
mx.g:=0;
k:=0;
while not eof(f) do
 begin
  read(f,d);
  if d.m>6 then
   begin
    k:=1;
    if(d.m>mx.m)or((d.m=mx.m)and(d.d>mx.d))then mx:=d
   end;
 end;
close(f);
if k=0 then write('Нет дат из второй половины года')
else
 begin
  write('Максимальная дата из второй половины года ');
  write(mx.d,'.',mx.m,'.');
  if mx.g<10 then write('0',mx.g)
  else write(mx.g)
 end;
readln
end.

type data=record //тип записей
          d,m,g:integer//день, месяц, год
          end;
var f:file of data; //типизированный файл записей
    n,i,k:integer;//количество, счетчик цикла и фиксатор наличия нужных записей
    d,mx:data;//1 запись и максимальная запись