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

Предыдущий
вопрос Следующий
вопрос

var
f: file of integer;
num: integer;
positiveCount, negativeCount: integer;

begin
positiveCount := 0;
negativeCount := 0;

Assign(f, 'des.dat');
Reset(f);

while not Eof(f) do
begin
Read(f, num);

end;

Close(f);

writeln('Количество положительных элементов: ', positiveCount);
writeln('Количество отрицательных элементов: ', negativeCount);
end.