типизированный файл

[Елешечка]

Дан файл f, содержащий различные даты. Каждая дата - это число, месяц и год Найти: год с наименьшим номером.

[Serge_Bliznykov]

ну, так например...

program FindMin;
Type
  DateType  =  record
      day, month, year : integer;
  end;
Var
  f : file  of DateType;
  d1 : DateType;
  MinYear : integer;
begin 
   Assign(f, 'MyDates.bin');
   Reset(f);
   if FileSize(f)=0 then WriteLn('файл пуст, нет там ничего!')
   else begin
       Read(f, d1);
       MinYear := d1.year;
       while not eof(f) do begin
          Read(f, d1);
          if d1.year < MinYear then  MinYear := d1.year;
       end;
       WriteLn('Минимальный год = ', MinYear) ;
   end;
   Close(f);
   readln;
end.