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

[Ez]

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

[Гость]

получилос вот что:

Код

program sraf;
type celovek=record
                  fam: string[6];
                 imia: string[2];
              sredaf: real;
                  end;

        var scitat: text;
              novij: zmogus;
           zapisat: file of zmogus;
ocenka, sum, sk: integer;

begin
assign(scitat, 'C:\dannij.txt');
assign(zapisat, 'C:\rezultat.rez');
reset(scitat);
rewrite(zapisat);

while not(eof(scitat))do
begin
     read(scitat, novij.fam);
     sum:=0;
     sk:=0;

while not eoln (scitat) do
     begin
     read(scitat, novij.ocenka);
     sum:=sum+ocenka;
     sk:=sk+1;
     end;
   readln(scitat);
   novij.sredaf:=sum/sk;
with (naujas) do
writeln(novij.fam, ' ',novij.sredaf);
end;

close(scitat);
close(zapisat);

end.

тольк чёт не работает... покажите плз где ошибки?