Сортировка Опции

[goatsee]

здрасти всем!
Вообщем препод по практике дал задание, оно состоит из 4рех частей
1. создание 2мерного массива
2. вывод
3. Сортировка вывода
4. запись в файл.
Вообще все проходили на Програмировании, кроме Сортировки помогите с этим пунктом плизз вообще не знаю, как делать=(
Вид списка примерно такой (x, y, z), вот по Z он должен от большего к меньшему сорртировать.

[goatsee]

вот, кажись правильно написал
вот этот массив

 program xxx;
uses crt;
var
m : array[1..3,1..3] of integer;
n : array[1..3] of integer;
x,y,z,i,j,q:integer;

begin
clrscr;
for j:=1 to 3 do
begin
for i:=1 to 3 do
begin
write('stroka ',i,' stolb ',j,' : ');
read(m[i,j]);
writeln;
end;
end;
clrscr;
z:=0;
x:=0;
y:=0;
q:=0;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
if z<m[i,j] then
begin
y:=i;
x:=j;
q:=m[i,j];
end;
write('(',y, x , q,') ');
end;
readln(z);
end;
end.

.
Выводит он ввиде (1,1(7-значение)),(1,2(5-значение)),(1,3(9-значение)) и надо отсортировать по значению от большего к меньшему,
(1,3(9)), (1,1(7), (1,2(5)
Как раз сортировки я не знаю и прошу вас помочь! хелп ми
ЗЫ чего не хватает, что б он не строчку выводил, а все 3 сразу?

Сообщение отредактировано: goatsee - 20.06.2007 18:46