найти проценты и вывести их в диаграмме паскаль

[gylayko]

в массиве м[10] указаны 10 последних аварийных ситуаций по напряжению. определить среднее значение между максимальным и минимальным значениями этих показателей и построить массив w[10], куда занести все критичесские отклонения от среднего (таковыми считать те, которые превышают среднее на более, чем 20%). Построить диаграмму.
uses crt, graph;
var
m:array[1..10] of integer;
w:array[1..10] of integer;
r,stA,stE,i,j,gd,gm,x,y,max,min,k,h ,t,xc,yc,error,proc1:integer;
g,proc:real;
proc_str: string;
begin
clrscr;
randomize;
for i:=1 to 10 do
begin
m[i]:=random(100);
end;{заполняем начальный массив, где указываем значение отклонений}
max:=1; min:=10;
for i:=1 to 10 do
begin
if m[i]>m[max] then
max:=i;
if m[i]<m[min] then
min:=i;
end;
writeln('max=',m[max],'min=',m[min]);{находим максимальное и минимальное...}
g:=(m[min]+m[max])/2; {...и находим от них среднее значение}
{здесь нужно найти сколько показателей превышают норму более чем на 20% и вывести все эти значения}
...
readln;
gd:=detect;{начинаем строить простенькую диаграмму столбиками}
InitGraph(gd,gm,'C:\TP\BGI');
t:=30;
xc:=getmaxX div 2;
yc:=getmaxY div 2+100;
Line(0,yc,2*xc,yc);
line(xc,0,xc,2*yc);
for i:=1 to h-1 do
begin
Rectangle(xc,yc,xc+5,round(w[i]*200/m[max]));{строим столбики}
outtextXY(xc+10,round(w[i]*200/m[max]),{тут нужно, чтобы выводило проценты (на сколько этот показатель отклоняется от среднего)});
inc(xc,50);
end;
readln;
CloseGraph;
end.
Итак, мне нужно найти показатели, которые отклоняются от нормы (среднего) на более, чем 20% и вывести это в рисунке! Поможете?