Lee mi respuesta al mensaje anterior a este. En todo caso experimenta con el procedimiento Window() de la unidad CRT.
Window está definido como
Window(x1,y1,x2,y2) donde el par x1,y1 son las coordenadas de la esquina superior izquierda y x2,y2 son las coordenadas de la esquina inferior derecha de la ventana, lo que esto provoca es que cualquier salida por pantalla que generes se circuscriba a la región asi definida, lamentablemente Turbo Pascal no ofrece un procedimiento o función que permita regresar a un estado anterior por lo que simplemente para volver al estado "normal" de la pantalla define una ventana nueva que abarque toda la pantalla: window(1,1,80,25);