Написать программу, которая подсчитывает количество положительных и отрицательных элементов файла целых чисел des.dat. Pascal ABC

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 n>0 then Inc(kp)    else if n<0 then Inc(ko)  end;  close(f);  Writeln('Положительных ',kp,', отрицательных ',ko)end.