Delphi 6. перестановка строк двухмерного массива

[Антон Лысенко]

переставить строки массива по не убыванию просматривая первые элементы столбца.

For i:=1 To n-1 Do
  repeat
  flag:=false;
         if x[i,1]<=x[i+1,1] then
          For j:=1 To m Do
           begin
            buf:=x[i,j];
            x[i,j]:=x[i+1,j];
            x[i+1,j]:=buf;
            flag:=true
          end;
    until flag=false;

не полностью сортирует. Найти ошибку не могу(((

[psycho-coder]

Блин, ну когда же вы уже научитесь думать абстрактно. Ведь в программировании без этого никуда
Turbo Pascal 7. Переделать надеюсь труда не составит.

uses
  Crt;

const
  MAX = 5;

var
  i, j: Integer;
  arr: array[0..MAX, 0..MAX] of byte;

procedure move_row(from: Byte; dest: Byte);
var
  i, j: Integer;
  tmp: Byte;
begin
  for i := 0 to MAX do
  begin
    tmp := arr[from, i];
    arr[from, i] := arr[dest, i];
    arr[dest, i] := tmp;
  end;
end;

procedure Print;
begin
  for i := 0 to MAX do
  begin
    for j := 0 to MAX do
    begin
      Write(arr[i, j]:3);
    end;
    WriteLn;
  end;
  WriteLn;
end;

begin
  ClrScr;
  Randomize;

  for i := 0 to MAX do
  begin
    or j := 0 to MAX do
    begin
      arr[i, j] := Random(9) + 1;
    end;
  end;

  Print;

  for i := 0 to MAX do
    for j := 0 to MAX do
      if arr[i, 0] > arr[j, 0] then
        move_row(i, j);

  Print;

  ReadKey;
end.

[Антон Лысенко]

уууу, вы мне ещё больше задачек подкинули)

[Антон Лысенко]

турбо паскаль я не знаю. Работаю в Object и потому с процедурами мне ещё сложней. мне там своих хватает.