Вычислить количество нулевых компонентов файла. Все отрицательные записать в файл

uses crt;
const
  nmax=100;
var
  A: Array[1..nmax] of Integer;
  B: Array[1..nmax] of Integer;
  fi, fo: Text;
  i, n, x, cn, cp, c0, k, p: Integer;
begin
  ClrScr;
  {Формирование Тестового входного файла}
  n:=50;
  Randomize;
  Assign(fi, 'in.txt');
  Rewrite(fi);
  for i:=1 to n do
    begin
      x:=Random(101)-50;
      Write(fi, x, ' ');
    end;
  Close(fi);
  {Основная программа}
  Assign(fi, 'in.txt');
  Assign(fo, 'out.txt');
  Reset(fi);
  Rewrite(fo);
  cn:=0;
  c0:=0;
  cp:=0;
  while not Eof(fi) do
    begin
      Read(fi, x);
      if x<0 then
        begin
          Inc(cn);
          A[cn]:=x;
          Write(fo, x, ' ');
        end
      else
        if x=0 then Inc(c0)
        else
          if x>2 then
            begin
              k:=2;
              repeat
                p:=x mod k;
                Inc(k);
              until (p=0) or (k*k>x);
              if p<>0 then
                begin
                  Inc(cp);
                  B[cp]:=x;
                end;
            end;
    end;
  Close(fi);
  Close(fo);
  Writeln('Массив отрицательных чисел:');
  for i:=1 to cn do Write(A[i]:4);
  Writeln;
  Writeln('Массив простых чисел:');
  for i:=1 to cp do Write(B[i]:4);
  Writeln;
  Writeln('Количество нулевых компонентов ', c0);
  Readkey;
end.