[Задача delphi] Матрица, ...упорядочить элементы. Опции

[NEFFboy]

Есть задача:
Упорядочить по убыванию элементы каждой строки матрицы размером (n*m) .

У меня вот что получилось:

var
 i, n, j: integer;
 y: array[1..100] of word;
begin
 writeln('введите размер матрицы:');
 readln(n);
 for i:=1 to n do
 begin
  write('y[',i']=');
  readln(y[i]);
 end;
 writeln('массив y');
 for i := 1 to n do write (y [i], ' ');
 writeln;
 for j:=1 to n-1 do
 for i:=1 to n-j do
 if y[i] > y[i+1] then
  begin
   b:=y[i];
   y[i]:=y[i+1];
   y[i+1]:=b;
 end;
 writeln('упорядоченная матрица');
 for i:=1 to n do
 write(y[i]. ' ');
 writeln;
end.

получился массив, что ему не хватает до матрицы? =)