Среднее Арифметическое Опции

[X-MEN]

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

[klem4]

Код

uses crt;
var
   x:array[1..100] of integer;
   i,n:integer;
   s:extended;
Begin
  clrscr;
  write('Vvedite kol-vo y4enikov ');
  readln(n);
  s:=0;
  for i:=1 to n do
   begin
      write('Vvedite Ocenky',i,'-go u4enika ');
      readln(x[i]);
      s:=s+x[i];
   end;

 clrscr;
 for i:=1 to n do
   writeln('Ocenka',i,'-go u4enika - ',x[i]);
 writeln;
 writeln('Sredny bal = ',s/n:2:1);
 readln;
End.