Hi, hogy tudnám megcsinálni az átlagszámítást ebben a feladatban? Leírjátok nekem végig a kódot kijavítva?

A feladat az, hogy van N létszámú osztály, a tanulóknak K db jegyük (amit a felhasználótól kér be a program) és a tanulók jegyeinek átlagát kell kiszámolni.

program atlag;

var tsz,jsz,i,i2,sum:integer;

nev:array[1..30] of string;

jegyek:array[1..10] of integer;

jegyek2:array[1..10] of integer;

atl:integer;

begin

write('Ird be a tanulok szamat: ');

readln(tsz);

writeln('Ird be a tanulo nevet: ');

i:=0

for i:=1 to tsz do begin

write(i,' . tanulo neve: ');

readln(nev[i]);

write('Jegyekinek szama: ');

readln(jsz);

i2:=0

for i2:=1 to jsz do begin

write(i2,'. jegye: ');

readln(jegyek2[i]);

end;

end;