Pascal problem

Zdravim, potrebujem poradit kde robim chybu v pascali... skusal som spravit jednu ulohu v pascali ale vypisuje mi Range ceck error (prekrocenie limitu) ... zadanie je tu http://home.gamca.sk/pk/inf/materialy/z ... danieK.htm po A ale nejde mi ani spravit sucet znamok tak nemozem vyratat ani priemer...
Moj program vyzera takto (hrubo cervene nefunguje a slabo cervene ide):

program skuska5;
uses crt;
type studenti=record meno:string;
znamky:array[1..9] of integer;
absencia,nh,spravanie:integer;end;
var x:text;
n,pz,i,a:integer;
s:array[1..13] of integer;
g:array[1..13] of studenti;


procedure nacitanie(a:integer);
begin
read(x,g[a].spravanie);
for i:=1 to pz do read(x,g[a].znamky[i]);
read(x,g[a].absencia);
read(x,g[a].nh);
read(x,g[a].meno);
end;


begin
clrscr;
assign(x,'E:/TP/zenit.txt');
reset(x);
read(x,n);read(x,pz);readln(x);
for a:=1 to pz do begin nacitanie(a);readln(x);end;
close(x);
for i:=1 to pz do with g[i] do delete(meno,1,1);
for i:=1 to pz do with g[i] do if nh>=10 then spravanie:=2;

for i:=1 to pz do s[i]:=0;
for i:=1 to pz do for a:=1 to n do s[i]:=s[i]+g[i].znamky[a];
{s[1]:=g[1].znamky[1]+g[1].znamky[2];}
writeln(s[1]);

writeln(g[5].meno);
readln;
end.


Dakujem vopred

taký dobrý je ten pascal, že ti ešte červeným ukáže riadok, na ktorom máš chybu..
polovica programovania je o hľadaní chýb, a k tomu potrebuješ vedieť robiť, čo tvoj program robí..

v tvojom stačí zbadať, že i ti ide od 1 do pz (9) a a ti ide od 1 do n (13).. pristupuješ k s[i], g[i] a znamky[a]. Tvoj program pristupuje až k znamky[13], čo neexistuje, preto range check error.... bližšie správnosť neskúmam, ale zameniť pz a n v tom for cykle by to malo sfunkčniť..

jj tam bola ta chyba dakujem za radu... P.S.: to som sam zvyraznil ale to asi vies...

jj viem ze si to sam zvyraznil, ale vacsina programovacich prostredi/kompilerov (vratane pascalu) ti pri chybe oznaci aj riadok, na ktorom je chyba.. turbo pascal ho dokonca aj zvyrazni cervenou..

moztre niekto napisat co ten program robí ? ucim sa