ficheros con eof

[guantxo]

HOLA!

yo no hago la introduccion del fichero. la hace el 'programa origen' y realmente no se como la hace!

yo parto del fichero TXT generado por este programa y a partir de él, lo leo linea a linea (ReadLn) y voy introduciendo campo a campo.

alguna idea?

se me ha ocurrido q komo no le falta esa linea ponerla yo!
algo asi
[list=a]
if FileExists('C:\Ofipro\GesProEasy\Emp1\EXPORTA\articulos.Txt') then
begin
AssignFile(F, 'C:\Ofipro\GesProEasy\Emp1\EXPORTA\articulos.Txt');
{$I-}
//abro el archivo
Reset(F);
{$I+}
//leo la linea
ReadLn(F,c);
while not Eof(F) do
begin
ReadLn(F,c);
end;
if eof(F) then
begin
writeln(F, #13);
end;
end;[/list=a]

pero no me deja escribir xq no esta en modo escritura!!!
he probado varias cosas pero nada