Hola Juan Carlos.
No estoy muy seguro de haberte entendido bien pero si vas a dibujar letras grandes formadas con caracteres(En este caso las vocales), puedes usar el procedimiento GotoXY si quieres. La pantalla del DOS tiene 80 columnas x 25 líneas que puedes usar como coordenadas.
Es más fácuk solo usar "Writeln" y dejar espacios en blanco cuando se requiera. Aquí no puedo hacer eso poruqe los espacios en blanco serían borrados por este editor de texto.
Voy a utilizar guiones para indicar los espacios en blanco. Solo debes borrarlos en el editor de tu Pascal:
Writeln('-----A----E---E-----IIIIIII----OO------O');
Writeln('-----A----E---E-----I----I----O-O-----O');
Writeln('-----A----E---E-----IIIIIII-----O--O---O');
Writeln('-----A----E---E-----I----I-----O---O--O');
Writeln('-AAA-----EEEE----I----I-----O----OO');
Al reemplazar estos guines por espacios..
Auí dice "JUAN"
(****************************************************************************************)
Y esta es otra forma. Utilizando "GoToXY"
Uses Crt;
Begin
ClrScr;{ClearScreen Limpia la pantalla}
{Dijuba la "B"}
GotoXY(6,5); Write('A'); GotoXY(6,4); Write('A');
GotoXY(6,6); Write('A'); GotoXY(6,7); Write('A');
GotoXY(6,8); Write('A'); GotoXY(6,9); Write('A');
GotoXY(5,9); Write('A'); GotoXY(4,9); Write('A');
GotoXY(3,9); Write('A');
GotoXY(10,4); Write('E'); GotoXY(10,5); Write('E');
GotoXY(10,6); Write('E'); GotoXY(10,7); Write('E');
GotoXY(10,8); Write('E'); GotoXY(10,9); Write('E');
{Dibuja la "U"}
GotoXY(13,4); Write('E'); GotoXY(13,5); Write('E');
GotoXY(13,6); Write('E'); GotoXY(13,7); Write('E');
GotoXY(13,8); Write('E'); GotoXY(13,9); Write('E');
GotoXY(12,9); Write('E'); GotoXY(11,9); Write('E');
GotoXY(10,9); Write('E');
{Dibuja la "A"}
{Dibuja la "N"}
ReadKey
End.