Массив записей: Требуется определить средний балл студентов группы

Program srball;
            type zap=record
                shg:string[5];
                nzk:integer;
                kd:1..100;
                oc:2..5
                end;
 
var mas:array[1..100] of zap;
                k,n,i:byte;
                sum:real;
 
begin
                i:=0;
                repeat
                    inc(i);
                    readln (mas[i].shg, mas[i].nzk, mas[i].kd, mas[i].oc)
                until mas[i].shg='99999';
                n:=i; sum:=0; k:=0;
                for i:=1 to n do
                    if mas[i].shg='AI007' then
                        begin
                            sum:=sum+mas[i].oc;
                            inc(k)
                        end;
                if k<>0 then sum:=sum/k;
                writeln ('Средний балл в группе AI007=',sum)
            End.