RE:como mostrar el codigo fuente
Hola Jenny!
A mí se me ocurre algo.
Supongamos que tu archivo fuente se llama prueba.pas
Como dijo Leandro, con ciclo while..:
uses crt;
var Arch: text;
Cadena : string;
begin
Assign(Arch,'C:\prueba.pas'); {Asigna la variable Arch al alrchivo prueba.pas}
Reset(Arch); {Prepara el archivo para lectura}
while not seekeof(Arch) do {mientras no llegue al final del archivo haga..}
begin
Read(Arch, Cadena); {Lee una línea del archivo y almacena en la variable}
writeln(Cadena); {Escribe en pantalla el contenido de la variable}
end;
ReadKey {Lee una tecla. Esto es para salir hasta que pulses una tecla}
end.
Hice este programita como un ejemplo. Puedes correrlo pero no olvides guardar antes el programa en C:\prueba.pas
Saludos!