Организация меню

program domaschnee zadanie;
uses crt;
const n=10
label M1,M2,M3;
var
a:array[1..n] of integer;
x,nmax,max,I,j,buf:integer;
p:byte;
procedure Procedure1;
begin
{Заполняем массив случайными целыми числами из диапазона от 0 до 9 и выводим массив на экран}
 for i:=1 to n do
 begin
a[i]:=random(10);
write(a[i],' ');        
end;    
 for i:=1 to n-1 do 
 for j:=i+1 to n do 
 if a[i]>a[j] then 
 begin
buf:=a[i]; 
 a[i]:=a[j]; 
 a[j]:=buf;
  end;
 writeln;
 writeln('Массив после сортировки пузырьковым методом: ');
for i:=1 to n do 
 write(a[i],' ');
writeln;
readln;
end;
procedure Procedure2;
begin
randomize;
for i := 1 to n do begin
arr[i] := random(100);
write (arr[i]:3);
end;
max_index := 1;
max_num := arr[1];
 for i := 2 to m do
if arr[i] > max_num then begin
max_index := i;
max_num := arr[i];
end;
 writeln;
writeln ('Max = ',max_num);
writeln ('position: ', max_index);
readln
end;
end;
begin 
clrscr;
writeln(‘1.Получение элементов исходного массива’);
writeln(‘2.Поиск максимального элемента);
writeln(‘3.Сортировка методом пузырька по возрастанию);
writeln(‘4.Завершение работы);
writeln(‘Выберите пункт меню’);
readln(x);
writeln(‘ Выберите пункт 1‘);
else 
M1:writeln(‘Выберете пункт меню’);
readln(x);
case of
1:begin
begin
M2:writeln(‘Получите элементы массива’);
for i:=1 to n do
 begin
 a[i]:=random(10);
write(a[i],' ');    
end;
writeln;
end;
2:Procedure 1;
3.Procedure 2;
4:exit
end;
goto M1;
end.