PascalABC num_files

program read_files;

var
  i, l : integer;
  num_arr : array of integer;
  f, f1 : text;

begin
  assign(f, 'C:\Users\kloko\Desktop\numbers.txt');
  reset(f);
  l := 0;
  while not eof(f) do begin
  //в случае с числами eof(f) работает правильно
  //только если они введены в одну строку
    l := l + 1;
    SetLength(num_arr, l);
    read(f, num_arr[l - 1]);
  end;
  for i := 0 to (length(num_arr) - 1) do
     writeln(num_arr[i]);
  close(f);
  assign(f1, 'C:\Users\kloko\Desktop\numbers_out.txt');
  rewrite(f1);
  for i := 0 to (length(num_arr) - 1) do
     write(f1, num_arr[i]);
  close(f1);
end.