Есть код прог-мы. Нужна менюшка.

Program mag_kvadrat;
USES CRT;
 
CONST
NMAX=100;
 
VAR
a:array [1..NMAX,1..NMAX] of integer;
n:integer; {razmer prover kvadratnoj matr}
OK:boolean;
i,j:integer; {indeksyu}
sum:integer; {summa elementov glavnoj diagonali}
temp:integer; {summa elementov stroki, stolbca ili vtoroj diagonali matr}
Num,w:byte;
 
BEGIN
ClrScr;
repeat
clrscr;
writeln('VYBERETE DEJSTVIE;');
writeln('1-ZAPUSK');
writeln('2-RUKOVODSTVO');
writeln('3-VYHOD');
repeat
readln(w);
until w in [1..3];
case w of
1:begin
  Write ('BBEDUTE PA3MEP KBADPATHOU MATR U HAWMUTE <Enter> ->');
  Readln (n);
  Writeln;
  Writeln ('<1> - SLUCH ZAPOLNENIE; <2> - SAMOSTOYATELNOE ZAPOLNENIE');
  Writeln;
  Write ('NUM {<1> or <2>} =');
  Readln(Num);
  If Num=1 then
   begin
   {---------------------------------------------------------------}
    Randomize;
    for i:=1 to n do
     begin
      Writeln; {probelyu mejdy strokami}
      for j:=1 to n do
       begin
        a[i,j]:=random(80);
        Write (a[i,j]:4);
       end;
      Writeln;
     end;
   {---------------------------------------------------------------}
   end;
  If Num=2 then
   begin
   {---------------------------------------------------------------}
    for i:=1 to n do
     begin
      Write('->');
      for j:=1 to n-1 do read(a[i,j]);
      Readln (a[i,n]);
     end;
  {---------------------------------------------------------------}
   end;
  OK:=TRUE; {Pust matr - mag kvadrat}
  {chitaem summu elementov glavnoj diagonali}
  sum:=0;
  for i:=1 to n do
  sum:=sum+a[i,i];
  i:=1;
  {chitaem summu po strokam}
  REPEAT
  temp:=0;  {summa elementov tekushej stroki}
  for j:=1 to n do temp:=temp+a[i,j]; {poshitali summu po j stroke}
  i:=i+1; {i tak dalee do posledujushih strok}
  if temp<> sum then OK:=FALSE;
  UNTIL (not OK) or (i>n);
  If OK then
  {zdes summa elementov kagdoj stroki
  ravna summe elementov glavn diagonali}
   Begin
    {chitaem summyi po stolbcam}
     j:=1;
     REPEAT
     temp:=0; {summa elementov tekushego stolbca}
     for i:=1 to n do temp:=temp+a[i,j];
     j:=j+1; {i tak dalee do posleduyushih stolbcov}
     if temp<> sum then OK:=FALSE;
     UNTIL (not OK) or (j>n);
     If OK then
     {zdes summa elementov kagdoj stroki
     ravna summe elementov glavn diagonali
     i ravna summe elementov kajdogo stolbca}
       begin
        {chitaem summu elementov pobochnoi diagonali}
        temp:=0;
        j:=n;
        for i:=1 to n do
         begin
          temp:=temp+a[i,j];
          j:=j-1;
         end;
        if temp<> sum then OK:=FALSE;
       end;
     End;
  Writeln;
  Write ('VVEDENNAJA MATR ');
  If not OK then
  Write('!!! NE !!!');
  Writeln (' JAVLYAETSYA MAGICHESKIM KVADRATOM');
  Readln;
 end;
2:begin
    writeln('RUKOVODSTVA ESHE NET!');
    readln;
   end;
3:exit;
end;
until w=3;
end.

case w of
  4: begin
      dir:='C:\Documents and Settings\Admin\Рабочий стол\File1.txt';
      assign(f, dir);
      rewrite(f);
      write(f, a[i, j]:4);
      writeln;
      write(f, result) {не знаю какой у вас там результат}
     end;
 end;
end.