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

[Ez]

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

[klem4]

Так.. постойка, ты сказал что у тебя файл тектовый и состоит из строк ... елси у тебя файл типизированный , то все делается гораздо проще !

uses crt;
const n=5;
type
   TRec = record
      name : string;
      maks : array[1..3] of byte;
      sr   : single;
   end;
   TBase = array[1..20] of TRec;
   TFile = file of TBase;

procedure Init(var b : TBase);
var
   i,j : byte;
begin
   for i := 1 to n do
    with b[i] do begin
      writeln('Rec ¹ ',i);
      write('name : '); readln(name);
      sr := 0;
      for j := 1 to 3 do begin
         write('maks ¹ ',j,' : ');
         readln(maks[j]);
         sr := sr + maks[j];
      end;
      sr := sr/3;
    end;
end;
procedure ShowResult(b : TBase);
var
   i : byte;
begin
   for i := 1 to n do
    with b[i] do writeln(name,'  ',sr:3:2);
end;

var
   f_in,f_out : TFile;
   base : TBase;

begin
   clrscr;
   assign(f_in,'f_in.base');
   rewrite(f_in);
   Init(base);
   write(f_in,base);
   reset(f_in);
   assign(f_out,'f_out.base');
   rewrite(f_out);
   read(f_in,base);
   write(f_out,base);
   close(f_in);
   reset(f_out);
   read(f_out, base);
   ShowResult(base);
   close(f_out);
   readln
end.

основная чать такая большая для того чтобы ты показал что все данные записываешь , а потом читаешь из файлов.