SoloCodigo

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.