Объединение 3 векторов в двумерный массив

[GaJIbI4]

Возникли проблемы с задачей.
Даны три вектора X={x1, x2, x3,}, Y={y1, y2, y3}, Z={z1, z2, z3}.
Построить матрицу A, столбцами которой будут соответственно векторы X, Y, Z, упорядоченные в порядке возрастания. Упорядочение вектора в порядке возрастания оформить в виде подпрограммы.

Вот что я придумал, компилятор ругается.

uses crt;
type
mass=array[1..3] of real;

Const
m=3;
n=3;


procedure sort(var M:mass);
var
i,j:integer;
Me:real;
begin
for i:=1 to 2 do
for j:=i+1 to 3 do
if M[j]<M[i] then
begin
Me:=M[i];
M[i]:=M[j];
M[j]:=Me;
end;
end;




var
A:array[1..M,1..N] of real;
X:Array[1..N] of real;
Y:Array[1..N] of real;
Z:Array[1..N] of real;
i,j:integer;
begin
clrscr;


write('введите координаты вектора X: ');
for i:=1 to n do
read(X[i]);



write('введите координаты вектора Y: ');
for i:=1 to n do
read(Y[i]);


write('введите координаты вектора Z: ');
for i:=1 to n do
read(Z[i]);

sort(X);
sort(Y);
sort(Z);


for i:=1 to N do
begin
for j:=1 to M do
begin
A[i,j]:=X[i];
A[i+1,j]:=Y[i];
A[i+2,j]:=Z[i];
end;
end;
for j:=1 to N do
begin
for i:=1 to M do
write(' ',A[i,j]:5:2);
writeln;
end;

end.

[whatever]

Примерно так:

Const
m=3;
n=3;

type
wtf=array[1..M,1..N] of real;
mass=Array[1..N] of real;


procedure sort(var M:mass);
var
i,j:integer;
Me:real;
begin
for i:=1 to 2 do
for j:=i+1 to 3 do
if M[j]<M[i] then
begin
Me:=M[i];
M[i]:=M[j];
M[j]:=Me;
end;
end;




var
A:wtf;
X,y,z:mass;
i,j:integer;

begin


write('введите координаты вектора X: ');
for i:=1 to n do
read(X[i]);



write('введите координаты вектора Y: ');
for i:=1 to n do
read(Y[i]);


write('введите координаты вектора Z: ');
for i:=1 to n do
read(Z[i]);

sort(X);
sort(Y);
sort(Z);


for i:=1 to N do
  for j:=1 to M-2 do
    begin
      A[i,j]:=X[i];
      A[i,j+1]:=Y[i];
      A[i,j+2]:=Z[i];
    end;



for i:=1 to N do
  begin
    for j:=1 to M do
      write(' ',A[i,j]:5:2);
    writeln;
  end;

readln;

end.

[GaJIbI4]

Спасибо, большое, работает =)