Текстовый файл

Создать текстовый файл компонентами которого явл целые числа.Определить сколько раз в нём повторяется целое значение.Результат дописать в исходный файл-помогите пожалуйста,ну или скажите в чём ошибка в процедуре.Заранее спасибо)


Procedure Obr(Var w:text;var f:text);
Var x,min,k:integer;
Begin
reset(f);read(f,min); rewrite(w);
While not seekeoln(f) do Begin

read(f,x);
If x<min then min:=x;
end;
K:=0;
While not seekeoln(f) do
If x=min then k:=k+1;
While not seekeoln(f) do write(w,x,' ');
writeln(w,' min:',min,' kol-vo povtorenii:',k);
Close(f);Close(w);
end;

0