Uses
  DOS;

Var
  F                             : Text;
  Hour, Minute, Sec, Sec100,
  Year, Month, Day, DayOfWeek   : {$IFNDEF OS2} Word; {$ELSE} LongInt; {$ENDIF}
  tS, S                         : String [30];

Const
  Months : Array [1..12] Of String [3] =
           ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
            'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');

Begin
  GetDate (Year, Month, Day, DayOfWeek);
  Str (Day, tS);
  S := '''' + tS + '-' + Months [Month] + '-';

  Str (Year, tS);
  S := S + Copy (tS, 3, 2);
  GetTime (Hour, Minute, Sec, Sec100);
  Str (Hour, tS);
  If Length(tS) = 1 Then tS := '0' + tS;
  S := S + '[' + tS;
  Str (Minute, tS);
  If Length(tS) = 1 Then tS := '0' + tS;
  S := S + ':' + tS + ']';
  S := S + '''';

  Assign (F, '\work\tornado\cdate.inc');
  ReWrite (F);
  WriteLn (F, S);
  Close (F);
End.