uses Dos;

var
  F             : Text;
  H, M, S, Hund : Word;      { Для GetTime}
  FTime         : LongInt;   { Для Get/SetFTime}
  Dt            : TDateTime; { Для Pack/UnpackTime}

function LeadingZero(W : Word) : String;
var
  S : String;
begin
 Str(W : 0, S);
 if Length(S) = 1 then
    S := '0' + S;
  LeadingZero := S;
end;

begin
  Assign(F, 'TEST.TXT');
 GetTime(H, M, S, Hund);
 ReWrite(F);         { Создаём новый файл }
  GetFTime(F, FTime); { Получаем дату создания }
 WriteLn('Файл создан в ', LeadingZero(H), ':',
                            LeadingZero(M), ':', LeadingZero(S));
  UnpackTime(FTime, Dt);
 with Dt do
 begin
   WriteLn('Атрибут времени файла ', LeadingZero(Hour), ':',
               LeadingZero(Min), ':', LeadingZero(Sec));
    Hour := 0;
   Min := 1;
   Sec := 0;
    PackTime(Dt, Ftime);
   WriteLn('Атрибут времени файла установлен на 00:01:00');
   Reset(F); { Открываем файл на чтение }
             { (Вызов Close обновит атрибут времени) }
    SetFTime(F, FTime);
 end;
 Close(F);   { Закрываем файл }
end.