é só vc criar uma procedure com o nome do comando que vc quer criar.

no seu caso.

Procedure writexy(byte:coluna,linha;string:frase);
begin
gotoxy(coluna,linha);
write(frase);
end;

pra usar esta sub-rotina:
EX:
Writexy(21,15,'testo que vc quer mostrar');

21 e 15 representa a localização na tela onde sera mostrada a frase que vc colocar.
lembre se que a tela 25x80 então 1<=coluna<=80 e 1<=linha<=25