Для записи в 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.