Типизированные файлы

[Shlem]

Дан файл целых чисел с диапозоном от a до b. Определить сколько раз встречается каждое значение в файле.

const
   a=2;
   b=9;
   type
   mas=array[a..b] of integer;
   var
       f:file of mas;
       i,x,n:integer;
   begin
       assign(f,'file6.txt');
       x:=0;
       for i:=a to b do
       begin
        reset(f);
        while not eof(f) do
         begin
         read(f,n);
         if n=i then x:=x+1;
         end;
        writeln(i,'->',x);
        close(f);
        readln;
       end;
   end.

Паскаль говорит что не правильно определен тип n

[alex_fcsm]

Вы пытаетесь в integer прочитать mas

[Shlem]

Что мне поменять надо?

[alex_fcsm]

f:file of integer;