PR1,…,PR9 — наименование предприиятий, T1,…,T9 — темпы роса производительности труда в % за год. Напечатать список предприятий, у который темпы роста производительности труда за год выше средних по всей группе предприятий. — Pascal(Паскаль)

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.