Напечатать список предприятий, у которых темпы роста производительности за год выше средних

uses crt;
const nmax=10;
var pr:array[1..nmax] of string[10];
    t:array[1..nmax] of real;
    n,i:byte;
    sr:real;
begin
clrscr;
repeat
write('Количество предприятий до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите данные о предприятиях:');
for i:=1 to n do
 begin
  writeln('Предприятие ',i);
  write(' наименование: ');readln(pr[i]);
  write(' темпы роста: ');readln(t[i]);
 end;
clrscr;
sr:=0;
writeln('Исходные данные:');
writeln('-----------------------------');
writeln('|  Наименование  | Темпы, % |');
writeln('-----------------------------');
for i:=1 to n do
 begin
  sr:=sr+t[i];
  gotoXY(1,whereY);write('| ',pr[i]);
  gotoXY(18,whereY);write('|',t[i]:9:2);
  gotoXY(29,whereY);writeln('|');
 end;
writeln('-----------------------------');
sr:=sr/n;
writeln('Средние темпы=',sr:0:2);
writeln;
writeln('Предприятия с темпами выше среднего:');
writeln('-----------------------------');
writeln('|  Наименование  | Темпы, % |');
writeln('-----------------------------');
for i:=1 to n do
if t[i]>sr then
 begin
  sr:=sr+t[i];
  gotoXY(1,whereY);write('| ',pr[i]);
  gotoXY(18,whereY);write('|',t[i]:9:2);
  gotoXY(29,whereY);writeln('|');
 end;
writeln('-----------------------------');
readln
end.

uses graph;
function F(x:real):real;
begin
F:=cos(x*x+5);
end;
var xn,xk,x,y,mx,my,h:real;
    x0,y0,i,px,py:integer;
    s:string;
begin
x0:=0;
initgraph(x0,y0,'');
x0:=getmaxX div 2;{начало координат}
y0:=getmaxY div 2;
xn:=-2*pi;xk:=2*pi;{интервал по Х}
h:=0.2;
mx:=600/(xk-xn);{масштаб по Х}
my:=y0-40;{по У}
setbkcolor(15);{цвет фона}
setcolor(8);{цвет линий и текста}
line(0,y0,getmaxX,y0);{ось Х}
line(x0,0,X0,getmaxY);{ось У}
for i:=1 to trunc(xk/0.2) do{кол. засечек на оси Х в 1 сторону}
  begin
    {ось Y}
    str(i,s);
    settextstyle(0,0,1);{текст горизонтально}
    line(x0-3,y0+round(i*my),x0+3,y0+round(i*my));{засечки}
    outtextXY(x0-15,y0+round(i*my),'-'+s);
    line(x0-3,y0-round(i*my),x0+3,y0-round(i*my));{подписи}
    outtextXY(x0-15,y0-round(i*my),s);
    {ось Х}
    line(x0+round(i*mx*0.2),y0-3,x0+round(i*mx*0.2),Y0+3);
    line(x0-round(i*mx*0.2),y0-3,x0-round(i*mx*0.2),Y0+3);
    str(i*0.2:0:1,s);
    settextstyle(0,1,1);{текст вертикально}
    outtextXY(x0+round(i*mx*0.2)+5,y0+10,s);
    outtextXY(x0-round(i*mx*0.2)+5,y0+10,'-'+s);
  end;
{подписи центра и концов осей}
settextstyle(0,0,1);
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0-10,10, 'Y');
setcolor(8);
{график}
x:=xn;
moveto(x0+round(x*mx),y0-round(F(x)*my));
setcolor(2);
circle(x0+round(x*mx),y0-round(F(x)*my),2);
while x<=xk do
 begin
  lineto(x0+round(x*mx),y0-round(F(x)*my));
  circle(x0+round(x*mx),y0-round(F(x)*my),2);
  x:=x+h;
 end;
setcolor(2);
outtextXY(20,10,'Grafik funktii y=cos(x*x+5)');
outtextXY(20,30,'na int.[-2pi;2pi] hag=0.2');
readln
end.

{график}
x:=xn;
h:=0.001;
moveto(x0+round(x*mx),y0-round(F(x)*my));