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

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

program CountPositiveNegative;
var
inFile: file of integer;
num: integer;
positiveCount, negativeCount: integer;
begin
assign(inFile, 'des.dat');
reset(inFile);
positiveCount := 0;
negativeCount := 0;
while not eof(inFile) do
begin
read(inFile, num);
if num > 0 then
positiveCount := positiveCount + 1
else if num < 0 then
negativeCount := negativeCount + 1;
end;
close(inFile);
writeln('Number of positive elements: ', positiveCount);
writeln('Number of negative elements: ', negativeCount);
end.

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