одном. массивы.

[blitz]

Ребят, помогите решить пож. задачу, я новичок, никак разобраться не могу.Помогите плз, заранее спасибо)

Задача:

Даны массивы:
PR1,...,PR9 - наименование предприиятий, T1,...,T9 - темпы роса производительности труда в % за год.
Напечатать список предприятий, у который темпы роста производительности труда за год выше средних по всей группе предприятий.

я вот как написал, но она не работает:

write('Введине наименование предприятия: ');
readln(pr[i]);string; 
write('Введите темпы роса производительности труда в % за год: ');
readln(t[i]); integer;
med:=med+t[i]/n; real;
if t[i]>med then writeln(pr[i]);
end.

[Shift_sk]

var
pr:array[1..100] of string;
t:array[1..100] of real;
i,n:integer;
begin
read(n);

for i:=1 to n do begin
write('Введине наименование предприятия: ');
readln(pr[i]);
write('Введите темпы роса производительности труда в % за год: ');
readln(t[i]); 
end;
med:=0;
for i:=1 to n do begin
med:=med+t[i];
end;
med:=med/n;
for i:=1 to n do
if t[i]>med then writeln(pr[i]);
end.

[blitz]

спасибо, только я не понял почему ты задаешь от 1 до 100,если нужно от 1 до 9