Построить гистограмму (столбиковую диаграмму) по данным двумерного массива расположенных в файле

uses crt,graph;
var f:text;
    name,s:string;
    a:array[1..50,1..50] of real;{матрица}
    zst,zsb:array[1..50] of string[20];{массивы названий строк}
    y:array[1..50] of real;{строка или столбец для диаграммы}
    n,m,i,j,w,p,k:byte;
    zg:string[20];
    mx,h:real;
    gd,gm,x0,y0,c,t:integer;
begin
clrscr;
randomize;
write('Imya faila: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Ne mogu otkryt fail ',name);
  writeLn('Rabota programmy zavershena. Press ENTER');
  readln;
  exit;
 end;
read(f,n);{читаем размеры матрицы}
read(f,m);
readln(f,s);{пропускаем строку}
for i:=1 to n do{читаем названия строк}
readln(f,zst[i]);
for i:=1 to m do{названия столбцов}
readln(f,zsb[i]);
for i:=1 to n do{читаем матрицу}
for j:=1 to m do
read(f,a[i,j]);
close(f);
repeat
writeln('Vyberite 1-stroka 2-stolbec');
readln(w);
until w in [1,2];
case w of
1:begin
   repeat
    write('Nomer stroki ot 1 do ',n,' k=');
    readln(k);
   until k in [1..n];
   p:=m;
   for i:=1 to p do
   y[i]:=a[k,i];{составляем массив из строки}
   zg:=zst[k];{заголовок}
  end;
2:begin
   repeat
    write('Nomer stolbca ot 1 do ',m,' k=');
    readln(k);
   until k in [1..m];
   p:=n;
   for i:=1 to p do
   y[i]:=a[i,k];{массив из столбца}
   zg:=zsb[k];
  end;
end;
mx:=0;
for i:=1 to p do
if y[i]>mx then mx:=y[i];{макс. для диаграммы}
writeln('Dannye dlya gistogranny:');
for i:=1 to p do
write(y[i]:6:2);
writeln;
write('Press Enter...');
readln;
gd:=0;
initgraph(gd,gm,'');{в графический режим для рисования диаграммы}
w:=round((getmaxX-70)/(4*p));{масштаб по горизонтали}
x0:=50;
y0:=420;
h:=(y0-40)/mx;{по вертикали}
for i:=1 to p do
 begin
  c:=random(15)+1;
  t:=random(9)+1;
  setcolor(c);
  Setfillstyle(t,c);
  Bar3d(x0+4*w*(i-1),y0-round(y[i]*h),x0+w*(4*i-2),y0,10,topon);
  str(i:2,s);
  outtextXY(x0+4*w*(i-1),y0+20,s);
  str(y[i]:0:2,s);
  outtextXY(x0+4*w*(i-1)+w-10,y0-round(y[i]*h)-20,s);
 end;
setcolor(14);
outtextXY(getmaxX div 2-50,20,zg);
readln
end.