одномерные массивы

[blitz]

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

Задача:

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

я вот как написал, но она не работает:
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.

[veniside]

А что не работает-то? Вроде всё правильно. Только med надо объявить:

var
  med: real;

[blitz]

я его объявил.
ошибку выдает в этом месте:
med:=0;

[Mad_Cat]

var
pr:array[1..100] of string;
t:array[1..100] of real;
i,n:integer;
med:real;

[blitz]

я знаю как объявлять.не глупый