Написать программу которая вычисляет процент студентов которые родились осенью — Pascal(Паскаль)

uses crt;
const n=5;
type a=record
n: string;
g: word;
m: byte;
d: byte;
end;
var b: array[1..n] of a; i,k,p: byte; 
begin
k:=0;
clrscr;
for i:=1 to n do
begin
write('введите имя ',i,'-ого студента: ');
read(b[i].n);
write('год его рождения: ');
read(b[i].g);
write('месяц(№): ');
read(b[i].m);
write('день: ');
read(b[i].d);
writeln(^j);
end;
for i:=1 to n do
if b[i].m=9 then
inc(k);
p:=round(k/n*100);
write(p,'% студентов родилось осенью');
end.