Pascal/Turbo Pascal - ayuda grafica

tengo un pequeño problema con este procedimiento

program present;
uses crt;
var
i:integer;
begin
gotoxy(10,10);
writeln('╔════════════════════╗');{estas son las líneas de arriba del marco de menú}
for i:=11 to 41 do
begin
gotoxy(10,i);
writeln('║ ║');{este es para hacer los lados del marco}
end;
readkey;
end.

el problema que tengo es que el programa solo me escribe los caracteres al final, o sea se ve mas o menos así:

╔════════════════════╗


║ ║

ves y me faltan los del centro, por que sucede eso??

gracias...

Bueno, para empezar recuerda que la pantalla solo tiene 80 x 25 lineas (80 en x, 25 en y) en modo 3
(textmode(3)), y 40 x 25 lineas en modo 1 (textmode(1)).

Ahi estas diciendo que desde y=11 hasta y=41, o sea que te hara un cochinero, por lo tanto debes decirle que hasta el 24 mas o menos.

otra cosa, tu quieres que se vea mas o menos asi:

╔════════════════════╗
║ ║
║ ║
║ ║
║ ║

si?, bueno, lo que debes hacer es esto:

for i:=11 to 24 do
begin
gotoxy(10,i); write('║');
gotoxy(31,i); write('║');
end;
readkey;

Es decir, que pinte ║ en cada uno de los lados de tu marco.

Espero haberte ayudado.
Saludos
Cristina

gracias cristina, de hecho utilice valores hasta 40 y me funciono, creo que mi error estaba en que estaba utilizando writeln y no write.

otra pregunta para el que me pueda ayudar, como hago para cambiar el color de las letras?

Utiliza la función 'textcolor()'. En el parentesis iría el nombre del color o el número correspondiente al mismo.

gracias...

Permiteme agregar que con textbackground() cambias el color del fondo de la letra, ademas la variable predefinita textatrr te almacena los atributos de color (frente y fondo) del texto actual, esto te sirve por ejemplo para reestablecer un color anterior a un cambio que hayas hecho, por ejemplo:
var
bkcolor:integer;
begin
writeln('algo');
bkcolor:=textattr;
textcolor(1);
writeln('algo');
textattr:=bkcolor;
writeln('algo');
end.

soy muy sexy