Работа с файлом., Определить среднее арифметическое.. Опции

[Lyorri]

Подскажите как решить задачу.Не могу понять.

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

Добавлено через 5 мин.
Что смог написал. Дальше не знаю..В фигурных скобках из другой задачи.Пытался сравнивать..

program file_1;
uses
	crt;
const
	n=20;
var
           f1:file of integer;
min,max,nmin,nmax,i,a:integer;

procedure SOZD_FILE;
 begin
  rewrite(f1);
    for i:=1 to n do
      begin
       a:=random(200);
       write(f1,a);
      end;
       close(f1);
 end;

procedure VIVOD_FILE(t:string;c:byte);
 begin
  writeln;
  writeln(t);
   reset(f1);
    while not eof(f1) do
      begin
       read(f1,a);
       write(a:4);
      end;
 end;

BEGIN
  clrscr;randomize;
  assign(f1,'f1prim1.int');
  SOZD_FILE;
  VIVOD_FILE('Ishodniy file',1);
   seek(f1,0);
{   min:=maxint;
   max:=-maxint;
     while not eof(f1) do
       begin
       read(f1,a);
       if a>max then begin max:=a;
                          nmax:=filepos(f1)-1;
                     end;
       if a<min then begin min:=a;
                          nmin:=filepos(f1)-1;
                     end;
       end;
   max:=max-min;
   min:=2*min;
   seek(f1,nmin);
   write(f1,max);
   seek(f1,nmax);
   write(f1,min);   }
  VIVOD_FILE('File posle izmeneniya',2);
   readkey;
end.