Построить столбиковую диаграмму параметров

uses crt;
const n=10;
      m=5;
type mtr=array[1..n,1..m] of integer;
procedure Diagramma(a:mtr;k:byte;nz:string);
var mx,ms:real;
    i,x1,y1,x2,y2,w,h,d:integer;
begin
clrscr;
gotoXY(30,1);//âûâîäèì çàãîëîâîê
write('Äèàãðàììà ',nz);
gotoXY(30,25); //âûâîäèì âíèçó íàäïèñü äëÿ âûõîäà
write('Press Enter');
mx:=0;//ìàêñèìóì äëÿ ìàñøòàáà
for i:=1 to n do
if a[i,k]>mx then mx:=a[i,k];
w:=5;//øèðèíà îêîí
d:=(80-n*w) div (n+1);//ðàññòîÿíèå ìåæäó îêíàìè
y2:=23;//íèæíèé êðàé îêîí
ms:=20/mx;//âåðòèêàëüíûé ìàñøòàá
for i:=1 to n do
 begin
  x1:=d*(i+1)+w*i;//ëåâûé êðàé îêíà
  x2:=x1+w;//ïðàâûé
  y1:=y2-round(a[i,k]*ms);//âåðõíèé
  window(x1,y1,x2,y2);//îêíî
  textbackground(i+1);//åãî ôîí
  textcolor(15);//öâåò òåêñòà
  clrscr;
  gotoXY(x1+2,y1+3); //âûâîäèì çíà÷åíèÿ âåñà
  write(inttostr(a[i,k]));
 end;
readln;
window(1,1,80,25);//âîçâðàùàåìñÿ â îñíîâíîå îêíî ñ ìåíþ
textbackground(15);
textcolor(0);
clrscr;
end;
 
var a:mtr;
    b,c:array[1..n] of integer;
    i,k,imn,imx:byte;
    s:real;
    w:char;
begin
writeln('----------------------------------------------------------');
writeln('|Íîìåð|Ìàññà|Ðîñò|Ñèëà ìûøö|Çàäåðæêà äûõàíèÿ|Óñïåâàåìîñòü|');
writeln('----------------------------------------------------------');
for i:=1 to n do
 begin
  write('|',i:3);
  a[i,1]:=40+random(25);
  write('  |',a[i,1]:4);
  a[i,2]:=140+random(30);
  write(' |',a[i,2]:4);
  a[i,3]:=50+random(50);
  write('|',a[i,3]:8);
  a[i,4]:=60+random(60);
  write(' |',a[i,4]:10);
  a[i,5]:=5+random(6);
  write('      |', a[i,5]:8);
  writeln('    |');
 end;
writeln('----------------------------------------------------------');
for i:=1 to n do
 begin
  b[i]:=0;
  c[i]:=0;
 end;
for k:=1 to m do
 begin
  s:=0;
  for i:=1 to n do
  s:=s+a[i,k];
  s:=s/n;
  imn:=1;
  imx:=1;
  for i:=2 to n do
   begin
    if abs(s-a[i,k])<abs(s-a[imn,k])then imn:=i;
    if abs(s-a[i,k])>abs(s-a[imx,k])then imx:=i;
   end;
  inc(b[imn]);
  inc(c[imx]);
  case k of
  1:write('Ìàññà: ');
  2:write('Ðîñò: ');
  3:write('Ñèëà ìûøö: ');
  4:write('Çàäåðæêà äûõàíèÿ: ');
  5:write('Óñïåâàåìîñòü: ');
  end;
  writeln('ñðåäíåñòàòèñòè÷åñêèé ó÷åíèê íîìåð ',imn,' óíèêàëüíûé - íîìåð ',imx);
 end;
imn:=1;
imx:=1;
for i:=2 to n do
 begin
  if b[i]>b[imn] then imn:=i;
  if c[i]>c[imx] then imx:=i;
 end;
writeln;
writeln('Ñàìûé ñðåäíèé ó÷åíèê íîìåð ',imn);
writeln('Ñàìûé óíèêàëüíûé ó÷åíèê íîìåð ',imx);
writeln;
write('Íàæìèòå Enter äëÿ ïðîñìîòðà äèàãðàììû');
readln;
repeat
clrscr;
writeln('Âûáåðèòå ïàðàìåòð äëÿ ïîñòðîåíèÿ äèàãðàììû');  //ìåíþ
writeln('1-Ìàññà');
writeln('2-Ðîñò');
writeln('3-Ñèëà ìûøö');
writeln('4-Çàäåðæêà äûõàíèÿ');
writeln('5-Óñïåâàåìîñòü');
writeln('Äðóãîå - âûõîä');
readln(w);//âûáèðàåì äåéñòâèå
case w of
'1':Diagramma(a,1,'ìàññû');
'2':Diagramma(a,2,'ðîñòà');
'3':Diagramma(a,3,'ñèëû ìûøö');
'4':Diagramma(a,4,'çàäåðæêè äûõàíèÿ');
'5':Diagramma(a,1,'óñïåâàåìîñòè');
else exit;
end;
until not(w in ['1'..'5']);//åñëè íå 1..5, âûõîä èç ïðîãðàììû
end.