HeSay (опционально) вместо writeln

procedure heSay(message:string);
begin
   TextColor(6); //6 - желтый
   write('МYDOCU~1: ');
   TextColor(4); //4 - оранжевый
   writeln(message);
   TextColor(15); //15 = white
end;