Исправить проргамму

const r=20;
var
  product, number, i, n,summ,schetchik,z: integer;
  f: file of integer;
  x:array[1..r] of integer;
 
begin
  assign (f,'file.txt');
  rewrite (f);
  writeln ('Количество компонент?');
  readln (n);
  writeln ('Ввести компоненты');
  for i:=1 to n do
    begin
      readln (number);
      write (f, number);
    end;
  close (f);
  reset (f);
  z:=1;
  writeln ('Компоненты файла:');
  for i:=1 to n do
    begin
      read (f, number);
      write (' ',number);
    end;
  close (f);
  reset (f);
  product:=1;
  for i:=1 to n-1 do
    begin
      read (f, number);
      if number < 0 then
      product:= product*number;
    end;
    close (f);
    reset(f);
    for i:=1 to n do
    begin
      read (f, number);
      summ:= summ + number;
    end;
  close (f);
  reset(f);
  for i:=1 to n do
    begin
      read(f,number);        
        if number >0 then   //здесь ошибка
           begin
           schetchik:=schetchik+1;
           x[z]:=number;
           end;
           end;
           write('Вектор положительных чисел: '); 
  for i:=1 to schetchik do
      write(x[z],'   ');
  writeln;
  writeln ('Произведение отрицательных компонент: ', product);
  writeln('Сумма всех компонент: ',summ);
  readln;
end.