Текстовый файл.Средний балл студентов

[Wild Angel]

Помогите пожалуйста решить задачу.Вот условие:
Дан текстовый файл с следующей информацией:фамилия,имя студента и три оценки за сессию. Вычислить средний балл группы за сессию. Сформировать новый файл,записав в него информацию о студентах имеющих средний балл выше чем средней балл группы.

Я сделала так: каждое слово фамилия,имя,оценки отделяются одним пробелом,поэтому их можно разделить на три составляющие.И вот текст программы набросала:

program upr1;
var s,st,s1,s2,s3:string; f,f1:text;
k,i,a,b,c,code:integer; o1,o2,o3:string; sr:real;
begin
assign(f,'srball.txt');
reset(f);
assign(f1,'stball.txt');
rewrite(f1);
while not eof(f) do begin
readln(f,st);
i:=pos(' ',st);
s1:=copy(st,1,i);
delete(st,1,i);
i:=pos(' ',st);
s2:=copy(st,1,i);
delete(st,1,i);
o1:=st[1];
o2:=st[2];
o3:=st[3];
val(o1,a,code);
val(o2,b,code);
val(o3,c,code);
sr:=(a+b+c)/3;
end;
close(f);
close(f1);
end.

[Serge_Bliznykov]

во-первых, движетесь в правильном направлении, что не получается?

во-вторых, посмотрите вот эту тему
http://programmersforum.ru/showthread.php?t=35746
возможно, она окажется Вам полезной.