завтра сдача курсовой позарез нужна блок схеме

Uses crt,graph;
Var f: text;
    name, s: string;
    l:byte;
    x1,y1,x2,y2:integer;
    flag:boolean;
    {создание рамки}
procedure ramka(x1,y1,x2,y2:integer);
var i:byte;
begin
 textbackground(0);
 gotoxy(x1,y1); write('╔');
 for i:=1 to x2-x1 do
  begin
   gotoxy(x1+i,y1); write('═');
   gotoxy(x1+i,y2); write('═');
  end;
 gotoxy(x2,y1); write('╗');
 for i:=1 to y2-y1 do
  begin
   gotoxy(x1,y1+i); write('║');
   gotoxy(x2,y1+i); write('║');
  end;
 gotoxy(x1,y2); write('╚');
 gotoxy(x2,y2); write('╝');
end;
 
 
{организация меню}
function menu:byte;
var i,oldm,newm:byte; ch:char;
const a:array[1..4] of string=('Открыть файл','Диаграмма','Справка','Выход');
begin
 ramka(30,10,50,17);
 window(31,11,49,16); textbackground(1); clrscr;
 {вывод пунктов меню}
 for i:=1 to 4 do writeln(a[i]);
  textbackground(2);
  gotoxy(1,1); write(a[1]); clreol;
  oldm:=1; newm:=1;
  {выбор пункта меню}
  repeat
   ch:=readkey;
   if ch=#0 then
     begin
      ch:=readkey;
      case ch of
      #72 {вниз с прокруткой}:if oldm=1 then newm:=4 else newm:=oldm-1;
      #80 {вверх с прокруткой}:if oldm=4 then newm:=1 else newm:=oldm+1;
     end;
   textbackground(1); gotoxy(1,oldm); write(a[oldm]); clreol;
   textbackground(2); gotoxy(1, newm); write(a[newm]); clreol;
   oldm:=newm;
   end;
 until(ch=#13);
 menu:=newm;
end;
 
{процедура очистки окна}
 
procedure win;
begin
 window(1,1,80,25); textbackground(0); clrscr;
end;
procedure OpenFile;
begin
    clrscr;
    write ('lmya 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
  else flag:=true;
end;
 
procedure gisto;
var
     a:array [1..50,1..50] of real;
    y:array [1..50] of real;
    n,m,i,j,w,p,k:byte;
    mx,h: real;
    gd,gm,x0,y0,c,t:integer;
begin
reset(f);
  read(f,n);
  read(f,m);
  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];
   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];
   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);
readln;
closegraph;
end;
procedure help;
var
 t:text;
 s:string;
begin
 clrscr;
 assign(t,'h.txt');
 reset(t);
 while not eof(t) do
   begin
    readln(t,s);
    writeln(s)
   end;
   readln;
end;
Begin
 win;
 flag:=false;
 repeat
 l:=menu;
 win;
 case l of
 1:OpenFile;
 2:if flag=true then gisto;
 3:help;
 end;
 win;
 until l=4;
 writeln('КОНЕЦ РАБОТЫ для выхода нажмите клавишу Enter');
 readkey;
end.