Написать программу, которая подсчитывает количество положительных и отрицательных частей

Var
  f:file of integer;
  i,n,kp,ko:integer;
begin
  сделать файл
  randomize;
  assign(f,'des.dat');
  rewrite(f);
  for i:=1 to 20 do
  begin
    n:=random(101)-50;
    Write(n,' ');
    Write(f,n)
  end;
  close(f);
  Writeln;
  работа с файлом
  ko:=0;
  kp:=0;
  reset(f);
  while not eof(f) do
  begin
    Read(f,n);
    if ngt;0 then Inc(kp)
    else if nlt;0 then Inc(ko)
  end;
  close(f);
  Writeln('Положительных ',kp,', отрицательных ',ko)
end.