Файлы. Turbo Pascal

[Металлистка]

Помогите пожалуйста написать программу в Турбо Паскале.
Дан файл вещественных чисел. Найти наибольшую компоненту файла и разделить ее на все компоненты. Результаты записать в файл.
Заранее спасибо

[Serge_Bliznykov]

var f : file of real;
      maxV, v : real;
      i : integer;
begin
  Assign(f, 'ИмяФайла.dat');
  Reset(f);
  if eof(f) then begin
      Close(f);
      WriteLn('File is empty! Nothing to do!');
  end
  else begin
     Read(f, maxV);
     while not eof(f) do begin
        Read(f, v);
        if v>max then max := v;
     end;
     Seek(f,0);
     i:=0;
     while not eof(f) do begin
        Read(f, v);
        v := max / v;
        seek(f, i);
        write(f, v);
        inc(i);
     end;
     Close(f)
     WriteLn('Done! File was be rewrited!'); 
  end;
  Readln
end.

[Металлистка]

Большое спасибо