Pascalban mátrix használatakor azt hogy tudom megoldani hogy soronként nézze csak?

Az a feladat hogy van 15 ember és 10 tantárgy és mind a 10 tantárgyban 10 jegy. Majd soronként szeretném átlagolni, és nem tudom hogyan kéne ezt mátrixban. (Amit én próbáltam nem működik)

Itt van maga a programkód :

Program diakok2matrix;

uses crt;

Var jegyek : array[1..10,1..15] of byte;

Var nevek : array[1..15] of string;

Var atlag : array[1..10] of real;

Var i,j : byte;

Var s : real;

begin

Randomize;

For i:=1 to 15 do

begin

Write(i,'. nev : ');

Readln(nevek[i]);

end;

clrscr;

For i:=1 to 15 do

begin

Writeln(nevek[i]);

end;

For i:=1 to 10 do

begin

for j:=1 to 15 do

begin

jegyek[i,j] := Random(5)+1;

Gotoxy(i+10,j+0);

Write(jegyek[i,j],' ');

end;

end;

//átlagolás Nem jó. Ebben kéne segítség.

For i:=1 to 15 do

begin

s:=0;

s:=s+jegyek[i,1];

s:=s/10;

Gotoxy(30,i);

Writeln(s:1:2);

end;

readkey;

end.