Uses
  DOS;

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

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) + '''';

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