Файлы, Помогите решить пожалуйста. Опции

[asxc]

понимаете осталась последняя задача и я её не как написать не могу в программу.
помогите кто может пожалуйста

Файл включает фамилию студента и их оценки по трём предметам в сессии. Распечатать по вводимой фамилии - оценки, а кроме того список студентов, получивших степендию ( не имеющих 2 и 3), получивших повышеную степендию(тока 5)

[asxc]

procedure showball2(a:TarrRec; count:integer);
var  i:integer;
begin
for i:=1 to count do
  if  (a[i].ball[1]=5) and  (a[i].ball[2]=5) and (a[i].ball[3]=5) then  
  writeln(a[i].name1,' ',a[i].ball[1],' ',a[i].ball[2]' ',a[i].ball[3]);
end;

здесь 113 ошибку выдает

Сообщение отредактировано: volvo - 6.02.2009 22:32