Pascal/Turbo Pascal - ayuda con gotoxy

Uses CRT;

Const

  nombres : Array [1..5] of string = ('Pedro','Luis','Alejandra','In‚s','Susana');

var

  i,aux : integer;

begin

  clrscr;

  For i:=1 to 5 do

    Begin

      aux:=(80-length(nombres[i])) div 2;  {Este cálculo sirve para centrar horizontalmente la cadena en pantalla}

         Gotoxy(aux,i+2); Writeln(nombres[i]);

    end;

   readln;

end.

Uses CRT;

Procedure EscribirEn(X:Integer; Y:Integer; MENSAJE: String);

begin

  GotoXY(x,y);

Writeln(MENSAJE);

end;

begin

  EscribirEn(10,10,'Hola mundo');

  readln;

end.