[AND_REY]

Если использовать File of Integer и открывать получившийся текстовый файл блокнотом то в нём будут "крокозяблики" т.к тип Integer это 4 байта а не строка.
Так у меня всё работает:

Код:

Program Project1;

{$APPTYPE CONSOLE}

Uses
 SysUtils;

Var
 F, G: TextFile;
 S: String;

begin
 AssignFile(F, 'C:\1.txt');
 AssignFile(G, 'C:\2.txt');
 Reset(F);
 Rewrite(G);
 While Not Eof(F) Do
  begin
   Readln(F, S);
   Writeln(G, S);
  end;
 Reset(F);
 While Not Eof(F) Do
  begin
   Readln(F, S);
   if StrToInt(S) > 0 Then Writeln(G, S);
  end;
 CloseFile(F);
 CloseFile(G);
end.

В первом текстовике у меня в каждой строчке число от -10 до 10.