uses Dos;
var
  Fi  : Text;
  Time: Longint;
  DT  : DateTime;
begin
  Assign(Fi, 'DATA.BAK');
  rewrite(Fi);
  GetFTime(Fi, Time);
  
  UnPackTime(Time, DT);
  writeln('Time:   ', time);
  WriteLn('Year:   ', DT.Year);
  WriteLn('Month:  ', DT.Month);
  WriteLn('Date:   ', DT.Day);
  writeln('Hour:   ', DT.hour);
  writeln('Minute: ', DT.min);
  writeln('Second: ', DT.sec);  	
  Close(Fi);
end.