Помогите с задачей на файлы!(Pascal)

[Fatality]

Народ пожалуйста помогите решить! Буду очень благодарен! Составить программу, выясняющую, какое из чисел m или n встречается в целочисленном файле f чаще

[Sazary]

Если файла нет, то он создается.

uses crt;
var
f : file of integer;
m,n,t,i,mcnt,ncnt : integer;

begin
clrscr;
randomize;
write('Enter n: ');
readln(n);
write('Enter m: ');
readln(m);

assign(f,'file.int');
{$I-}
reset(f);
{$I+}
if IOResult <> 0 then
 begin
 rewrite(f);
 for i:=1 to 100 do
  begin
  t := random(40)+1;
  write(f,t);
  end;
 close(f);
 reset(f);
 end;
{-------}
mcnt := 0;
ncnt := 0;
while not eof(f) do
 begin
 read(f,t);
 if t=n then inc(ncnt)
 else if t=m then inc(mcnt);
 end;
close(f);

if mcnt>ncnt then writeln(M,'(',mcnt,') chashe ',N,'(',ncnt,')')
else if mcnt<ncnt then writeln(N,'(',ncnt,') chashe ',M,'(',mcnt,')')
else writeln(M,' i ',N,' vstrechayutsya odinakovo chasto (',ncnt,')');

readln;
end.

Прочитайте правила.

[Fatality]

Sazary, огромнешее спасибо! Только есть 2 вопроса(сорри за тупость, просто эту тему я не очень понял)... Что такое mcnt и ncnt? И что делает вот эта строка: eof(f)?

[alex_fcsm]

Сообщение от Fatality

Sazary, огромнешее спасибо! Только есть 2 вопроса(сорри за тупость, просто эту тему я не очень понял)... Что такое mcnt и ncnt? И что делает вот эта строка: eof(f)?

mcnt и ncnt - счетчики для подсчета чисел m и n в файле
Eof( var F ): boolean, - возвращает значение TRUE, если достигнут конец файла, связанного с файловой переменной F

[Fatality]

Алекс, спасибо, с этим разобрался! Еще вопросик: можно ли как нубудь обойтись без директив {$I+} и {$I-}? Мы вроде их еще не проходили... И что даёт вот эта операция: {------}?

[Sazary]

можно ли как нубудь обойтись без директив {$I+} и {$I-}?

Выключает обработку ошибок ввод-вывода. Если их убрать, то если файла не будет существовать, программа завершится.
То есть тогда придется писать еще одну программу, которая будет создавать исходный файл (можете использовать для этого код из этой программы).

И что даёт вот эта операция: {------}?

Это не операция, а комментарий. Чтобы лучше читался листинг.