В двухмерном массиве хранится информация об оценках каждого из 20 учеников класса по тому или иному предмету. (В первой строке – информация об оценках первого ученика, во второй – второго и т.д.) Общее число предметов =10. Определить среднею оценку пятого ученика — Pascal(Паскаль)

program zad;
var
a:array[1..20,1..10] of integer;
 
i,j:integer;
sum:real;
begin
  randomize;
  for i:=1 to 20 do
  for j:=1 to 10 do
  a[i,j]:=2+random(4);
  i:=5;
  sum:=0;
  writeln('все оценки пятого ученика:');
  for  j:=1 to 10 do
  begin
    write(a[i,j]:4);
    sum:=sum+a[i,j];
  end;
  writeln;
  writeln('средняя оценка пятого ученика равна ',(sum/10):4:1);
  readln;
end.