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.
