Меню из 4-х пунктов

Uses CRT;
var i:integer;
label 1,2;
begin
1: ClrScr;
writeln('1. Формат диска');
writeln('2. Командная строка');
writeln('3. Где все?');
writeln('4. Выход');
writeln;
write ('Выберете действие: '); readln(i);
if (i=1) then begin ClrScr; writeln('а без проги слабо???'); writeln; writeln('1. Вернуться в меню'); writeln('2. Выход');write ('Выберете действие: '); readln(i); if i=1 then goto 1 else goto 2;  end 
else if (i=2) then begin ClrScr; writeln('пуск -> выполнить -> cmd'); writeln; writeln('1. Вернуться в меню'); writeln('2. Выход');write ('Выберете действие: '); readln(i); if i=1 then goto 1 else goto 2;  end
else if (i=3) then begin ClrScr; writeln('пуск -> выполнить -> regedit'); writeln; writeln('1. Вернуться в меню'); writeln('2. Выход');write ('Выберете действие: '); readln(i); if i=1 then goto 1 else goto 2;  end
else if (i=4) then goto 2;
2: end.

uses mymodul,crt;
var n: integer; begin
n:=0; while n<>5 do begin
clrscr;
  writeln('|~~~~~~~~~~~~~~~~~~~MENU~~~~~~~~~~~~~~~~~~~~~|');
  writeln('| 1 ~ sozdat fail                            |');
  writeln('| 2 ~ chtenie faila                          |');
  writeln('| 3 ~ zamena faila                           |');
  writeln('| 4 ~ vihod                                  |');
  writeln('^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^');
  write('Vvedite nomer: ');
  readln(n);
  case n of
  1:procedure1;
  2:procedure2;
  3:procedure3;
  4:begin clrscr; exit end;
  end; end; end.