Переписать все положительные числа файла в массив в том же порядке

{ Записаны 18 целых чисел. Переписать все положительные числа файла в массив в том же порядке. }
const
  n=18;
var 
  a: array[1..n] of integer;
  f: file of integer;
  i, k, x: integer;
  name: string;
begin
  readln(name);
  assign(f,name);
  rewrite(f);
  for i:= 1 to n do
    begin
      readln(x);
      write(f,x);
    end;
  close(f);
  
  reset(f);
  i:= 1;
  k:= 0;
  while (i<=n) and (not eof(f)) do
    begin
      inc(i);
      read(f,x);
      if x>0 then
        begin
          inc(k);
          a[k] := x;
        end;
    end;
  close(f);
  for i:=1 to k do
    write(a[i]:4);
  writeln;
end.

var
  s: string;
  i: integer;
begin
  readln(s);
  for i:= 1 to length(s) do
    if s[i] in ['М','м','Н','н'] then 
      write(s[i]);
  writeln;
  readln;  
end.

{ В массиве записана информация о стоимости 20 видов товара. 
Определить, сколько видов товара имеют стоимость меньшую, 
чем средняя стоимость всех товаров. }
const
  n=20;
var
  a: array[1..n] of real;
  i,k: integer;
  s,avg: real;
begin
  for i:= 1 to n do 
    readln(a[i]);
 
  s:= 0;
  for i:= 1 to n do
    s:= s + a[i];
  
  k:= 0;
  for i:= 1 to n do
    if n*a[i]<s then
      inc(k);
  writeln(k);
  readln;
end.