Pascal/Turbo Pascal - como mostrar el codigo fuente

hola...como puedo hacer para mostrar el codigo del programa mientra corre...¿¿??

hola, podes guardar el programa y ir leyendolo caracter por caracter y que te lo imprima en pantalla.. eso es con archivos... le das a un ciclo while not eof(*nombre del archivo*) previamente asignado no... y a ahi ir leyendo ... pero que pasa esto te va a mostrar como quedo la ultima vez que guardaste programa... y el programa que tarias haciendo no tendria mucho sentido :S no se si vos queres hacer que mientras se ejecute el programa que cumpla con alguna funcion ir escribiendo el codigo me parece que se te haria muuy extenso :S

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!

Debe ser ReadLn(Arch, Cadena); y no Read();

Tienes toda la razón.
Debe ser ReadLn(Arch, Cadena); y no Read();
Pero ahora soy yo el que tiene una duda.

Probé el programa y también funciona con read aunque no debería ser así.
Alguien sabe porqué?

Saludos!