добавить подпрограммы в меню

program menu;
uses crt, graph;
            const n=5;
            x1=-6;
            x2=6;
var a:array[1..n,1..n] of integer;
    b:array[1..n,1..n] of integer;
    gd, gm: integer;
    x,y:real;
max,i,j,min,a1,b1:integer;
 m:array [1..n,1..n] of integer;
 mx,my,p,o,dx,w:real;
Driver,Mode:integer;
Color:word;
x0,y0:word;
 s2,s1:string;
 xg,yg:word;
size,d,z:word;
 
type
strmenu=record
z:integer;
s:string[14];
end;
Const
kol=5;
mas:array[1..kol] of strmenu=
((z:6; s:'Vvod Dannyx'),
(z:20; s:'Sortirovka'),
(z:35; s:'Graphik'),
(z:50; s:'Vyvod dannyx'),
(z:63; s:'Exit'));
Var
e:integer;
k:integer;
ch:char;
procedure InputDan;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to n do begin writeln('vvedite element ',i,' stroki ',j,' stolbca ');
readln(a[i,j]);
end;
for i:=1 to n do
for j:=1 to n do
b[j,n+1-i]:=a[i,j];
end;
procedure SortDan;
begin {
clrscr;
write(m[i,j]);
for i:=1 to n-1 do begin
for j:=1 to n-i do
if m[3,j]>=m[3,j+1] then begin min:=m[3,j];m[3,j]:=m[3,j+1];m[3,j+1]:=min;
end;
for j:=1 to n do
write(m[3,j],' ');
readln(m[i,j]);
end;}
end;
procedure GraphFun;
begin
Clrscr;
Writeln('Postroit graphik y=cos2x-sinx');
 
    xg:=0;
    yg:=0;
    DRiver:=VGA;
    Mode:=VGAHi;
    InitGraph(DRiver,Mode,'‘:\');
         if GraphResult<>grok then
            begin
writeln('Oshibka pri vkluchenii');
    writeln('Graphicheskogo regima');
    Halt;
            end;
x0:=140;
y0:=(GetMaxY div 2)+40;
setBkColor(7);
setColor(white);
ClearDevice;
Line(x0,40,x0,GetMaxY-40);
Line(x0-100,y0,GetMaxX-40,Y0);
MoveTo(x0,y0);
Size:=1;
settextstyle(0,0,size);
outtextxy(x0-2,y0+5,'0');
outtextxy((getmaxx div 2)-40,y0-100,'y=cos(x)*cos(x)-sin(x)');
outtextxy(getmaxx-80,y0+5,'x');
outtextxy(x0-10,80,'y');
For d:=1 to 3 do
Line(x0+20*i,y0-3,x0+20*i,y0);
outtextxy(x0+20,y0+5,'1');
outtextxy(x0+63,y0+5,'3');
Line(x0-20,y0-3,x0-20,y0);
outtextxy(x0-25,y0+5,'-1');
Line(x0,y0+20,x0+3,y0+20);
outtextxy(x0-13,y0+20,'-1');
setColor(red);
x:=-6;
y:=cos(x)*cos(x)-sin(x);
xg:=x0+round(x*20);
yg:=y0-round(y*20);
MoveTo(xg,yg);
for d:=1 to 180 do
begin
x:=-6+0.1*d;
y:=cos(x)*cos(x)-sin(x);
xg:=x0+round(x*20);
yg:=y0-round(y*20);
LineTo(xg,yg);
end;
Readln;
CloseGraph;
end;
procedure OutputDan;
begin
clrscr;
for i:=1 to n do
for j:=1 to n do
b[j,n+1-i]:=a[i,j];
writeln;
writeln('ishodniy massiv:');
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:5);
writeln; end;
writeln;
writeln('rezultat:');
for i:=1 to n do begin
for j:=1 to n do
write(b[i,j]:5);
writeln;
end;
max:=m[1,1];
for i:=2 to n do
if (max<m[i,i]) and (m[i,i] mod 2 =0) then max:=m[i,i];
writeln('maximalniy element glavnoy diagonali =',max);
readln(m[i,i]);
 
end;
begin
k:=1;
repeat
textattr:=7;
clrscr;
for e:=1 to kol do
begin
gotoxy(mas[e].z,3);
write(mas[e].s);
end;
textattr:=87;
gotoxy(mas[k].z,3);
write(mas[k].s);
ch:=readkey;
case ch of
#13:case k of
1:inputDan;
2:SortDan;
3:Graphfun;
4:OutputDan;
end;
#0:begin
ch:=readkey;
case ch of
#77:
if k<kol then
k:=k+1
else
k:=1;
#75:
if k>1 then
k:=k-1
else
k:=kol;
end;
end;
end;
until(ch=#13)and(k=5)or(ch=#27);
textattr:=7;
begin
clrscr;
end;
end.

const n:=5;
  var a:array[1..n,1..n] of integer;
  var b:array[1..n,1..n] of integer;
  max,i,j,min,a1,b1:integer;
  begin
  {часть 1}
  for i:=1 to n do
  for j:=1 to n do begin writeln('Введите элемент ',i', строки ',j,' столбца ');
  readln(a[i,j]);
  end;
  for i:=1 to n do
  for j:=1 to n do
  b[j,n+1-i]:=a[i,j];
  writeln;
  writeln('исходный массив:');
  for i:=1 to n do begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln; end;
  writeln;
  writeln('результат:');
  for i:=1 to n do begin
  for j:=1 to n do
  write(b[i,j]:5);
  writeln;
  end;
  {часть 2}
  for i:=1 to n do
  for j:=1 to n do begin write('Введите элемент ',i,' строки ',j,' столбца: ');
  readln(m[i,j];
  end;
  writeln;
  writeln('исходный массив:');
  for i:=1 to n do begin
  for j:=1 to n do
  write(m[i,j]:5);
  writeln; end;
  max:m[1,1];
  for i:=2 to n do
  if (max<m[i,i]) and (m[i,i] mod 2 =0) then max:=[i,i];
  writeln('Максимальный элемент главной диагонали=',max);
  {часть 3}
  for i:=1 to n-1 do begin
  for j:=1 to n-i do
  if m[3,j>=m[3,j+1] then begin min:=m[3,j];m[3,j]:m[3,j]:m[3,j+1];m[3,j+1]:min;end
 ;
 end;
 for j:=1 to n do
 write(m[3,j],' ');
 readln;
 end.