Линейный Масив, надо уже завтра Опции

[givi]

Люди помогите сделать Эту программу три пункта из меню вроде сделал а астольное не получается Помогите завтра срочно надо :o :p2:

Код

Program line_Massiv;
uses crt;
Const N=12;
Var mas:array[1..N] of integer;
   i,k,x,y,max,min,num,sum,cr : integer;

begin
While x<>10 do begin
           Clrscr;
     Textcolor(15);
     Write('1-Запуск 2-Вывод 3-Поиск 4-max 5-Min 6-сумма и средние 7-Сдвиг 8-Симетричное отображение 10-выход');
     Writeln(x);
     Readln(x);
  if x=1 then begin
        for i:=1 to N do mas[i]:=Random(100)+1;
end;
     if x=2 then begin
        for i:=1 to N do Write(mas[i],' ');
end;
   if x=3 then begin
        k:=0;
        write('Введите чесло'); read(y);
        for i:=1 to n do begin
            if y=mas[i] then begin write(mas[i],' ',i); k:=k+1; end;
end;
        If k=0 then Writeln('НЕ НАЙДЕНО!!!')
        else Writeln(Кол-во=',k);
?????????????


writeln;
write('Pres any Key');
Readkey;
end.

Зарание спасибо!!!!!!!!!