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

[SeRGuSii]

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

Код

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

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

[SeRGuSii]

to klem4, делал не помогло.
volvo спасибо, теперь работает.
----------
Посмотрите задачку что-то упустил в создании модуля, не инициализируется.
Модуль включает подпрограмму обработки массива: ввод массива, вывод массива в графическом режиме, проверка упоряд на возрастание, на убывание, сортировка массива, поиск заданного элемента.

 
unit obrmasiv;
interface
const
     n=5;

type
 TElem = integer;
 mass = array[1..n] of TElem;


implementation
uses crt,Graph;
procedure inputmas (a:mass);
var i:integer;
begin
 for i:=1 to n do begin
                      write('a[',i,']= ');
                      read(a[i]);
                  end;
end;
procedure outputmas (a:mass);
var i:integer;
begin
 for i:=1 to n do begin
                      write(a[i],' ')
                  end;
end;
function yp(a:mass): boolean;
 var i:integer;
     p:boolean; p1:boolean;
 begin
  p:=true;
  p1:=true;
   for i:=1 to n-1 do
   begin
    p:=p and (a[i] > a[i+1]);
    p1:=p1 and (a[i] < a[i+1]);
   end;
  yp:=p or p1;
 end;
end.
procedure sort(a:mass);
var c:integer;
begin
 for i:=2 to n do
  begin
   c:=a[i-1];a[i-1]:=a[i];a[i]:=c;
  end
end;
uses obrmasiv;
const n=5;
var a: array [1..n] of integer;
    i:integer;
begin
 inputmas(a);
 if yp then writeln('yp') else writeln('neyp');
 sort(a);
 outputmas(a);
end.

и какбы по красивее её вывести в графическом режиме