вписать фамилию и оценку, зависимо от того сколько ты вводил в string и посчитать средний балл всех учеников из всех учеников, pascal ПОМОГИТЕ!!!!!!!

var surname:string;score,sum:double;n:integer;beginwriteln('Введите количество учащихся');read(n);for var i:=1 to n do beginwrite('Введите фамилию ' + i +' ученика: ');readln(surname);readln;write('Введите балл: ');read(score);sum:= sum + score;end;write('Средний балл всех учеников = ' + sum/n);end.