SoloCodigo

Para que sistema operativo? Windows, DOS...?

Tendrás que leer algo sobre punteros y memoria dinámica para DOS:
http://www.infor.uva.es/~jvalvarez/docencia/tema2.pdf

Function Assigned (Var P) : Bolean;
Determina si un puntero o variable de tipo procedimiento es nil. Especifica si el argumento es nil o e el argumento tiene un valor.                       

Encontré el enlace que buscaba!!!!
este es, te va servir un monton.
http://ar.geocities.com/nrs_arg/pascalmania/t_varptr.htm

este es el programa, hasta hay se los dejo solo le falta el copiar el archivo y paserlo al nuevo.
program Leertexto;
uses
    crt;
var
    fichero   :text;
    caracter   :char;
begin
    Assign(fichero,'c:\code.dat');
    Reset(fichero);
    clrscr;
    while not eof(fichero) do
    begin
        while not eoln(fichero) do
        begin
           Read(fichero, caracter);
           Write(caracter)
        end;
        writeln;
        Readln(fichero)
    end;
close(fichero)
end.