файлы, ОЧЕНЬ НУЖНА ПОМОШЬ!!!! Опции

[vi-rus]

задание : Дан файл, содержащий различные даты. Каждая дата – это число месяц и год. Найти самую раннюю дату.
Программа не работает. Помогите ,ПОЖАЛУЙСТА, найти ошибку.
На всякий случай прикреплю файл.

program zadanie2;
uses crt;
const god:array [1..12] of integer = (31,28,31,30,31,30,31,31,30,31,30,31);
      godvisok: array [1..12] of integer =(31,29,31,30,31,30,31,31,30,31,30,31);
type zap = record
                 year,month,day:integer;
              end;
  tf= file of zap;
  var f:tf;
  minindex,i,n,k:integer;
  result:file of longint;
  min,y,sum,z: longint;
  t:text;
  data:array[byte] of zap;
  massiv:array [1..100] of longint;
begin
clrscr;
sum:=0;
 assign(t,'labfile\date.txt');
 reset(t);

while not eof(t) do
   begin
   for i:=1 to 3 do
    with data[i] do
     begin
      read(t, year);
      read(t, month);
      read(t, day);

     z:=trunc(year div 4)*366+(year-trunc(year div 4))*365;{Ї®бзЁв «Ё Ј®¤л}
   { бзЁв Ґ¬ ¬Ґбпжл }
    if year mod 4 = 0 then   {if year visokosny}
       for k:= 1 to month do
          begin
        sum:=sum+godvisok[k];
          end
         {end}
     else                                       {if year not visokosny}
         for k:=1 to month do
           begin
           sum:=sum+god[k];
           end;
      {Є®­Ґж}
   y:= z+sum+day;
   massiv[i]:=y;
   sum:=0;
   writeln(massiv[i]:10);

 end;

 end;
readln;
close(t);
for i:=1 to 3 do
 begin
 min:=massiv[1];
 for k:=1 to 3 do if min>=massiv[k] then minindex:=k;

 end;
 writeln(minindex);

with data[minindex] do   begin
    writeln(year);
    writeln(month);
    writeln(day);

    end;

readln;


 end.
 

[мисс_граффити]

это был комплимент?