Pascal/Turbo Pascal - Imprimir caracteres pantalla

Hola a todos, espero que la duda que os planteo nos os parezca muy estúpida. Estoy estudiando el lenguaje Pascal y para probar mis conocimientos estoy tratando de realizar el juego del ahorcado. El problema que se me presenta, por ahora, es que a la hora de sustituir los caracteres de la palabra oculta por '*' estos no se me alinean como quisiera sino que se presentan verticalmente al lado izquierdo de la pantalla.
*
*
*
*
Os adjunto el código que uso para ver si encontráis alguna solución, probablemente será alguna tontería pero llevo un par de día comiéndome la cabeza y no lo he conseguido arreglar.
Gracias de antemano por vuestro tiempo y esfuerzo.

program fichero_palabras;
uses crt;
var cad:string;
i:integer;
archivotexto:text;
BEGIN
clrscr;
assign(archivotexto, 'C:\TP\prueba\hombre.txt');
reset(archivotexto);
readln(archivotexto,cad);
textbackground(cyan);
textcolor(white);
window(1,1,80,25);
gotoxy(25,12);
for i:=1 to length(cad) do
writeln('*');
close(archivotexto);
readln;
END.

Hola utiliza las funciones de posicion en pantalla
gotoxy(fila,columna);

gotoxy(5,col);write('*');
Donde COL es la variable columna que la vas incrementando por cada letra o caracter que quieres representar

var col integer;

inc(col,1);
o tambien col:=col + 1;

Escribe en la fila 5 columna depende del COL.

Ok.

Muchas gracias por la ayuda prestada, ahora puedo seguir adelante con mi proyecto

mijo lindo...baja unas guias de internet!!!...alli encontraras como arroz!..dale pues..y ve si cambias de lenguaje ya que ese esta obsoleto!..bye