Как открыть на запись ReadOnly файл?

Для записи в ReadOnly файл необходимо снять с файла атрибут ReadOnly.

Uses DOS;
var
  t:text;
  attr:Word;
Begin
  Assign(t,'file');
  GetFAttr(t,attr);          {Прочитать атрибуты файла }
  attr:=attr and $FE;
  SetFAttr(t,attr);          {Сбросить атрибут ReadOnly}
  Append(t);
  Writeln(t,'Hello!');       {Дописать что-либо в файл }
  Close(t);
  attr:=attr or $01;
  SetFAttr(t,attr);          {Восстановить атрибут ReadOnly}
End.