Создать меню между программами

uses crt;
const nmax=20;
procedure matrix;
var a,b:array[1..nmax,1..nmax] of real;
    m,n,i,j:byte;
    mx:real;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=50*random-25;
     write(a[i,j]:7:2);
    end;
   writeln;
 end;
writeln;
mx:=a[1,1];
for i:=1 to n do
for j:=1 to m do
if abs(a[i,j])>abs(mx) then mx:=a[i,j];
writeln('Максимальный по модулю элемент=',mx:0:2);
Writeln('Новая матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    b[i,j]:=a[i,j]/mx;
    write(b[i,j]:7:2);
   end;
  writeln;
 end;
readln
end;
procedure stroka;
var s:string;
a,b:integer;
t,y:string;
begin
clrscr;
writeln('Enter string:');
readln(s);
b:=0;
for a:=1 to length(s) do
b:=b+1;
writeln('Kol-vo = ', b);
b:=b div 2;
writeln('Polovina = ',b);
t:=copy (s,1,b);
y:=copy (s,b+1,255);
for b:=1 to length(t) do
if t[b]='.' then t[b]:='~';
writeln(t,y);
readln;
end;
var w:char;
begin
clrscr;
repeat
clrscr;
writeln('Выберите действме');
writeln('1-матрица');
writeln('2-строка');
writeln('другое-выход');
readln(w);
case w of
'1':matrix;
'2':stroka;
else exit;
end;
until not(w in ['1'..'2']);
end.