Определите, сколько раз встречается каждое значение в файле.
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.
программа почему-то считает только первое число, остальные выводит по нулям
буду рад помощи
