написание своего модуля Опции

[SeRGuSii]

Забыл как описывать свои модули, помню, что вроде надо так

Код

user <назв модуля>;

а дальше то как ? напишите пожалуйста, в faq, статьях и уроках вроде нету если пропустил ткните носом

[SeRGuSii]

Да ты прав она запускается, это я с путями намудрил. Правда еще проблемы остались массив вводит, но элементы не запоминает, выводит нулевой массив

[volvo]

еще проблемы остались массив вводит, но элементы не запоминает, выводит нулевой массив

Правильно... У тебя в модуле процедура ввода массива как определена? Вот так:

procedure inputmas (a:mass);

а это значит что результаты работы процедуры в вызывающую программу не вернутся... Поменяй на

procedure inputmas (var a:mass);

(только не забудь, и в секции Interface и в Implementation)

То же самое - в сортировке (ты там вообще чего-то намудрил, я поменял то что было на простейший алгоритм "пузырька"):

procedure sort(var a:mass);
var
  T:integer;
  i, j:integer;
begin
  For i := 1 To n Do
    For j := n DownTo i+1 Do
      If a[j - 1] > a[j] Then Begin
        T := a[j - 1]; a[j - 1] := a[j]; a[j] := T
      End
end;

не забудь про Var...