работа с файлами, текстовый файл Опции

[Ez]

Помогите плз решит задачку!!!
значит ест текстовий файл в н строк, в каждой строке:
фамилия имя оценки(например: Первий Вася 2 3 4).
надо создат новий фаил, в котором, в каждой строке, будут:
фамилия имя среднее арифметическоэ оценок(Прим.:Первий Вася 3).
Заранее большое спасибо!!!!!!

[klem4]

привер обработки одной строки :

uses crt;
const s : string = 'Владимир Путин 2 3 3';
var
   i,e,n : integer;
   sr : single;
begin
   i := 1;
   while(not(s[i] in ['2'..'5'])) do begin
      write(s[i]);
      inc(i);
   end;
   sr := 0;
   while(i<=length(s)) do begin
      if s[i] in ['2'..'5'] then begin
         val(s[i],n,e);
         sr := sr + n;
      end;
      inc(i);
   end;
   sr := sr/3;
   writeln(' : ',sr:2:2);
   readln
end.

[Гость]

спаибо спасибо!
а как теперь сделат, чтоб он резултат(ну среднее арифметическое) в новий фаил записивал?