оболочка к write(), fp Опции

[compiler]

Добрый день!
Меня интересует следующий вопрос, можна ли создать оболочку к write? Допустим я хочу писать в определенное место на терменале, но все это спрятатьв отдельную процедуру... Честно говоря, учитывая то что я знаю о write, я сомневаюсь что это реализуемо, но, может...

заранее благодарен.

[klem4]

ну и в чем трабл ?)

uses crt;

procedure write_and_return(const msg: String; const x, y: Word);
var
  return_x, return_y: Word;
begin
  return_x := WhereX;
  return_y := WhereY;

  GoToXY(x, y);
  writeln(msg);
  GoTOXY(return_x, return_y);
end;

begin
  clrscr;

  write_and_return('a', 10, 10);
  writeln('b');
  write_and_return('c', 10, 11);

  readln; 
end.