Вписать фамилию и оценку, зависимо от того сколько ты вводил в string и посчитать средний всех учеников из всех учеников, pascal !

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