Подпрограмма с массивом

[NSvirus]

Ребята, что-то совсем запутался с темой подпрограммы, помогите пожалуйста..

Задача такова: в главной программе вбивается массив, в подпрограмме сортируется по возрастанию..
Я вот состряпал такую бяку, чет не то((

program abc;
var a:array[1..10] of integer;
e:string;
function asort(A:integer):integer;
var i,j,k:word; N,T:integer;
begin
i:=1;k:=1;
repeat
repeat
a[i]:=t;
a[i+1]:=N;
if a[i]>a[i+1] then begin a[i]:=N; a[i+1]:=t; end;
i:=i+1;
until i+1=10;
i:=1; k:=k+1;
until k=10;
asort:=A;
end;
begin
repeat
write('vvedite',q, 'cifry massiva')
read(e);
a[i]:=e;
i:=i+1;
until i=10;
writeln('OtsortirovannbIi massiv:=', a);
end.

[Sazary]

Учите массивы.
Вот это вообще убийственная строчка:

writeln('OtsortirovannbIi massiv:=', a);

program abc;
type mas = array[1..10] of integer;
var
a : mas;
i : integer;

procedure asort(var A : mas);
var i,j,k:word;
tmp : integer;
begin
for i:=1 to 9 do
 begin
 k := i;
 for j:=i+1 to 10 do
  if A[j]<A[k] then k := j;
 tmp := A[k];
 A[k] := A[i];
 A[i] := tmp;
 end;

end;

begin
for i:=1 to 10 do
 begin
 write('Vvedite ',i,'-j element: ');
 readln(a[i]);
 end;

asort(a);

writeln('OtsortirovannbIi massiv:');
for i:=1 to 10 do
 write(a[i]:4);
readln;
end.

[NSvirus]

Благодарю, Sazary.. Конечно будем учить))