Pascal/Turbo Pascal - string laaaaaaargos ayudaaaaa

holas a todos y muchas gracias mi problema es q tengo un programita para cargar expediente y en uno de sus campos hay q escribir por lo menos mas de 3 renglones y hay el problema es q se me sale de el cuadrado q dibuje y quisiera saber de que forma se puede acodar el texto muchas gracias a todos y muy buena la pagina

Usa tres strings de 254 caracteres cada uno :S.

no es ese el problema es q se me pasa del cuadro de dibujo aca doy un ejemplo para q lo veas
Procedure llenarexp(cod:Integer);{este es el procediumiento con el problema}
......
......
.....
gotoxy (9,13);Textcolor(0);
write('Extracto: '); {es aqui donde se ingresan + de 200 caractees y el problema}
gotoxy(19,13);Textcolor(4);ReadLN (lextracto);{es que se pasan del renglon y del}
gotoxy (12,16);Textcolor(0);{cuadro dibujado y querçda orrible}
.......
......
.......
......
......
end;

Saludos DRALION .

No se, Si entendí tu problema , creo esto es lo que buscas usa
WINDOW para crear una ventana nueva , ahi va un ejemplo para que
practiques.
NOTA:si no es esto lo que buscas postea de nuevo

________________________________________________________

uses crt;
begin
textmode(co80); { pantalla inicial de 80x25 }
textcolor(7);
textbackground(0);
clrscr; { borramos la pantalla }
textcolor(7);
textbackground(1);
window(20,10,60,18); { ahora la pantalla de texto es mas pequena }
clrscr; { la borramos de otro color para poder verla mejor }
writeln('una linea de texto cualquiera para ver el resultado por pantalla ');
writeln('recuerda restablecer las coordenadas 1,1,80,25 antes de salir ');
writeln('recuerda tambien que la ventana actual tambien posee scroll automatico ' );
writeln('sige escribiendo sin pulsar intro para ver el efecto scroll');
readln;
end.

gracias men es justo lo que necesitaba me salvaste el peyejo te lo agradesco muchisimo de veras muchas gracias