Pascal/Turbo Pascal - No logro unir la esquina del cuadro

ayuda no lo gro unir la esquina inferior derecha cuando las uno no se me ve la parte de arriba
ayudaaaaaaaaaaaaaaaaaaaaaaaaaaa

program cuadro;
uses crt;
const
somb : char = char(176);
var
i:integer;

begin
clrscr;
gotoxy (1,1);write(chr(201));
for i:= 2 to 79 do
begin
gotoxy (i,0);write(chr(205));
end;
gotoxy(80,1);write(chr(187));
for i:= 2 to 24 do
begin
gotoxy(1,i);write(chr(186));
gotoxy(79,i);write(chr(32),char(186));
end;
gotoxy(1,25);write(chr(200));
for i := 2 to 79 do
begin
gotoxy(i,25);write(chr(205));
end;
gotoxy(80,24);write(chr(188));

readkey
end.

Lee con calma las medidas dadas a el ancho de pantalla de 80 son las máximas que admite como texto la pantalla al entrar gotoxy(80,24);write(chr(188)); la pantalla se desplaza tienes que reducir
el ancho normal mente se realiza sobre unos valores de xmin = 1, ymin = 1, xmax = 79, ymax = 23
para evitar esos desplazamientos de pantalla.
Prueba a reducir tamaño de marco.
Ojo si intentas escribir dentro del marco tendrás que diseccionar las entrada del testo sino el
marco desaparecerá con el texto.
Excepto que crees una ventana de entrada dentro del marco por ejemplo :
window(2,2,78,22); esto te crea esa ventana y el marco estará intacto a gas lo que a gas.
Pero antes de abandonar el programa tendrás que volver a su estado normal a la pantalla
con window(0,0,80,25); no te se olvide.