Помогите найти ошибку.(Paskal)

[Just-Five]

Дан файл F содержащий различные даты. Каждая дата — это число, месяц и год. Найти самую позднюю дату.

type
 data=record
      day:1..31;
      month:1..12;
      year:integer;
      end;
var
  a,max:data;
  i,n: integer;
  fp: file of data;
begin
   Assign(fp,'data.dta');
     Rewrite(fp);
   Write('Введите колличество записей: ');
     Readln(N);
for i:=1 to n do begin
   Write ('Введите день ');
   readln(a.day);
   Write('Введите месяц ');
   Readln(a.month);
   Write('Введите год ');
   Readln(a.year);
end;
Assign(fp,'data.dta');
Reset(fp);
    read(fp,max);
While not Eof(fp) do begin
      Read(fp,a);
        if (a.Year>max.Year) or (a.Year=max.Year) then max:=a;
        if (a.Month>max.Month) or  (a.Month=max.Month) then max:=a;
        if (a.Day>max.Day) then max:=a;
    end;
      writeln('Самая поздняя дата: ',max.Day,'.',max.Month,'.',max.Year);
        Close(fp);
      readln;
End.

[Just-Five]

Ошибка вылетает на read(fp,max);(Ошибка времени выполнения:Чтение после конца потока невозможно)

[Aleksandr H.]

1. в data.dta ничего не записывается
2. файл после ввода не закрывается
3.

if (a.Year>max.Year) then
           max:=a
        else
        if (a.year = max.year)and(a.Month>max.Month) then
           max:=a
        else
        if (a.year=max.year)and(a.month=max.month)and (a.day>max.month) then
           max:=a