Записать числа из файлов в массив

{Процедура формирует массив [1..N] из целых положительных чисел файлов f1 и f2. 
Если количество положительных чисел в файлах меньше N, то 
оставшимся элементам массива присвоить -1.}
procedure DoWork;
const
  n = 10;
 
var
  f1, f2: text;
  x, i, k: Integer;
  a: array [1..n] of integer;
 
begin
  Assign(f1, 'f1.txt');
  Assign(f2, 'f2.txt');
  Reset(f1);
  Reset(f2);
  i := 1;
  while not EoF(f1) do
  begin
    Read(f1, x);
    if i > n then
      break;
    if x > 0 then 
    begin
      a[i] := x;
      inc(i);
    end;  
  end;
  k := i;
  if k >= n then
  begin
    writeln('Количество положительных чисел в файле f1 превысило N: ');
    for i := 1 to n do
      write(a[i]:3);
    exit;
  end;
  dec(k);
  while not EoF(f2) do
  begin
    Read(f2, x);
    if i > n then
      break;
    if x > 0 then 
    begin
      a[i] := x;
      inc(i);
    end;  
  end;
  k := i;
  Close(f1);
  Close(f2);
  for i := k to n do
    a[i] := -1;
  for i := 1 to n do
    write(a[i]:3);
end;
 
begin
  DoWork;
end.