[Wirdfire]

С самой системой delpi работаю недавно, и возник следующий вопрос.
Есть программа и есть модуль к ней, в котором лежат все процедуры.
Вопрос в том, что когда процедуры в теле программы, то оно работает, а когда в модуле, отдельно -- то не работает.
Код прилагается. Программа:

Код:

program Project2;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Unit1 in 'Unit1.pas';
var
n,i:integer;
a:array[1..100] of real;
k:real;
begin
  writeln('Input n ');
  readln(n);
  writeln('Input Array');
  for i := 1 to n do readln(a[i]);
  Array_out(n,a);
  Sort_array(n,a);
  Array_out(n,a);
  readln;
end.

И модуль:

Код:

unit Unit1;

interface
type
Real_array=array[1..100] of real;
int=integer;

procedure Sort_array(n:integer;var a:Real_array);
procedure Array_out(n:integer;a:Real_array);
implementation
procedure Sort_array;
var
i,j:int;
t:real;
begin
begin
   for j:=1 to n-1 do
     for i:=1 to n-j do
        if a[i] > a[i+1] then
        begin
          t := a[i];
          a[i] := a[i+1];
          a[i+1] := t
        end;
end;
end;
procedure Array_out;
var
i:int;
begin
writeln('Array_out');
  for i := 1 to n do
    begin
      writeln(a[i]:2:4);
    end;
end;

end.

Заранее спасибо за ответ!