файлы, Пусть дан файл целых чисел с диапазоном значений от a и до b. Опред Опции

[marwell]

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

 var f:text;
  n,i,x,a,b:integer;
  name:string;
  w:word;
begin
x:=0;
writeln ('укажите путь к файлу');
readln (name);
writeln ('введите a');
readln (a);
writeln ('введите b');
readln (b);
assign(f, name);
reset (f);
for i:=a to b do begin
while not eof(f) do begin
readln (f,n);
if n=i then x:=x+1;
end;
writeln (i,'->',x);
x:=0;
end;
close (f);
readln;
end. 

программа почему-то считает только первое число, остальные выводит по нулям буду рад помощи