Напишите программу в паскале, которая высчитывает средний оценок (нужно чтобы в программу можно было вводить хоть сколько оценок).

Program p1;
var 
i,j,s:integer; 
r: double; 
a:array [1..9999] of integer;
begin
writeln('Запишите кол-во оценок');
read(j);
for i:=1 to j do 
begin 
writeln('Введите оценку #', i); 
read (a[i]); 
end;
for i:=1 to j do 
begin 
s:=a[i]+s; 
end; 
writeln('сумма оценок = ', s);
r:=s/j;
writeln('Средний бал = ',r);
end.