Este error te aparece porque ya son demasiadas líneas de código.
Puedes completar tu programa uniendo varios programas.
No sé si me explico, lo que debes hacer almacenar parte de tu código en una "Unit" y luego llamar esta unit desde el programa principal-
Hola.
Aquí te pongo un ejemplo de un programa que utiliza una unidad creada por el programador. Debes compilar la unit Program2.pas para que se vuelva Program2.tpu
y pueda ser utilizada.
***************************************************************************
Program enlazado1;
uses crt, Program2;
begin
ClrScr;
Writeln('Esta seccion pertenece al programa 1');
Escribir;
Escribir2;
ReadKey
end.
**************************************************************************
Unit Program2;
Interface
uses Crt;
procedure Escribir;
procedure Escribir2;
Implementation
Procedure Escribir;
begin
Writeln('Esta seccion pertenece al programa 2');
end;
Procedure Escribir2;
begin
Writeln('Esta seccion tambien pertenece al programa 2');
end;
end.
***************************************************************************
Precaución: Debes utilizar el mismo identificador para el nombre de la unidad y del archivo en el que guardarás el código!. Si la unidad se llama Program2.pas, esta empieza con:
Unit Program2;
Interface
Etc,etc,..
Y en el programa principar pones:
uses crt,program2;
Saludos!