Pascal/Turbo Pascal - Prolema programa

saludos a todos. Estoy tratando de hacer un progrma de numeros perfectos atraves de un fichero de entrada, pero no logro que me funcione correctamente.
Program leer_numero(input,output);

type Positivo=0..Maxint;
VAR
N,C,L:Positivo;
F:text;
//---------------------------------------------------------------------------
function NumPerfecto(numero: integer): boolean;
var
I,Sum: integer;
NumP:boolean;
begin
NumP:=false;
if (numero > 2) then
begin
Sum:=0;
for i:=(numero - 1) downto 2 do
begin
if (numero mod i) = 0 then sum:=sum+i;
if Sum = Numero then NumP:=true;
NumPerfecto:=numP;
end;
end;
end;
//---------------------------------------------------------------------------
begin
writeln('numero de matricula:bd0401');
writeln('apellidos:Serra Alvarez');
writeln('nombre:Eduardo');
assign(F,'c:\datosp1.txt');
reset(F);
C:=1;
read(F,n);
l:=1;
while not eof(F) and not NumPerfecto(n) do
begin
read(F,n);
C:=C+1;
if eoln(F) then begin
c:=0;
l:=l+1;
end;
end;
if NumPerfecto(N) then
write('numero perfcto situado en: ',c, 'linea',l,' y es el:', n);
If not numPerfecto(n) then
write('No hay numeros perfectos en este fichero');
close(f); writeln;
end.
Gracias de antemano