Паскаль. Сортировка массива

[Asira]

Как можно отсортировать двумерный массив например методом выбора не используя перевод в одномерный массив......?

[sir.andrey]

Вот так!!!
В эту процедуру заносишь исходный массив и ПОНЕСЛАСЬ!!

procedure mas (a:massiv);
var x,z,min,i,j:integer;
begin
writeln;
z:=0;
for i:=1 to 10 do begin
                  if i=10 then break;
                  min:=a[i];
                  for j:=i+1 to 10 do begin
                                    if a[j]<min then begin
                                                     min:=a[j];
                                                     z:=j;
                                                     end;
                                    if min=a[i] then z:=i;
                                    end;
                  x:=a[z];
                  a[z]:=a[i];
                  a[i]:=x;
                  end;
writeln ('pryamoy vobor');
for i:=1 to 10 do write (a[i],' ');
end;

[Asira]

Непонятно данное условие if i=10 then break;