Матрица m*n и числа по возрастанию в ней

[BotoBot]

Есть матрица m*n. Производить сортировку матрицы так, чтобы наименьший
элемент матрицы был первым(1,1), а наибольший - последним. Ввод
элементов матрицы производить 2-я способами: в ручную для каждого
элемента и автоматически, случайными числами.

Вот до чего я дошёл.(ввод элементов случайными числами)

program matrix;
uses CRT;
type warray=array[0..1000] of integer;
var x,y,i,k,j,ii,endd:integer;
    w:warray;

begin
ClrScr;
writeln('Enters y matrix');
read(y);
writeln('Enters x matrix');
read(x);

randomize;
for i:=1 to x*y do begin
    w[i]:=random(100);
end;

ii:=0;

w[0]:=0-1;

for i:=1 to y*x do begin

    for j:=i to x*y do begin

             if w[i] > w[j] then
             begin

             w[i]:=w[j];

             end;

    end;

    writeln('');

write(w[i]:5);
ii:=ii+1;

if ii = x then begin
writeln('');
ii:=0;
end;

end;

readln(endd); {для того,чтоб не изчезало сразу}

end.

собственно говоря я знаю в чём проблема, но я не знаю как это записать.
По моему коду к примеру числа 9 8 7 6 5 4 3 2 1 и вся массивная переменная примит число 1...ммм...как бы так скзать то...Ну оно сначала сравнивает 9 с остальными, и принимает наименьшее, тоесть 1, и записывает его в х[1]. потом оно сравнивает 8 с остальными, и опять таки принимает значение 1, записывает его в x[2]. и тд...
еслиты было 9 8 7 1 6 5 4 3 2 то до единицыбы принимало значение 1, а после значение 2(так как за единицей это самое наименьшее в данном случае).
Ну вобщем мою систему вы поняли. Оно может хорошо сравнить все числа токо 1 раз=(...
Так вот. вернёмся к примеру 9 8 7 6 5 4 3 2 1 , где всё примет значение 1. Я бы "выколол" еденичку, чтобы последующая массивная переменная не принимала его значение и тд, но, увы, не знаю как сделать...

[Sazary]

Это вы специально матрицу сделали одномерным массивом?
Если так, то и сортируйте его именно как одномерный массив:

program matrix;
uses CRT;
type warray=array[0..1000] of integer;
var x,y,i,j,tmp:integer;
    w:warray;

begin
ClrScr;
writeln('Enters y matrix');
readln(y);
writeln('Enters x matrix');
readln(x);

randomize;
for i:=1 to x*y do
begin
 w[i]:=random(100);
end;

for i:=1 to x*y-1 do
 for j:=i+1 to x*y do
  if w[j]<w[i] then
   begin
   tmp := w[j];
   w[j] := w[i];
   w[i] := tmp;
   end;

for i:=1 to x*y do
 begin
 write(w[i]:4);
 if i mod y =0 then writeln;
 end;

readln;
end.

[BotoBot]

Спасибо вам огромное. Понимаете, я просто только недавно приступил к изучению языков программирования. Решил начать с процедурных, и выбрал паскаль. Литературу по паскалю читал.
Отвечаю на ваш вопрос. Нет. Я не специально сделал одномерным массивом, я просто так "видел решение"...
Скахав вашу фразу, вы подразумивали, что есть ещё какой-либо "путь". Поясните пожалуйста, что вы имели в виду. Я ведь не для когото язык учу, а для себя...

[Sazary]

Просто матрица подразумевает создание двумерного массива. То есть

warray = array[1..100,1..100] of integer;

и обращение, соответственно, по двум индексам:

matrix[i, j]

Но для данной задачи действительно удобно использовать одномерный массив, т.к. легче сортировать.