быстрая сортировка!!!!!!!!!!!!!!!!!!!!!!

[narco3]

Помогите пожалуйста отсортировать строки матрицы по значениям элементов первого столбца. Почитал похожие темы, пробовал сделать но безрезультатно.Вот всё что сделал

type mas=array[1..1000,1..1000] of integer;
def=array[1..1000] of integer;
..........
procedure qsort(var m:mas;l,r,k:integer);
var i,j,x,y,buf:integer;b:def;
begin
  i:=l;
  j:=r;
  x:=m[k,(l+r) div 2];
  repeat
  while m[k,1]<x do inc(i);
  while m[k,1]>x do dec(j);
  if i<j then
  begin
 b[i]:=m[k,i];
 m[k,i]:=m[k,j];
 m[k,j]:=b[i];
 inc(i);dec(j);
 end;
 until i<j;
 if l<j then qsort(m,l,j,k);
 if i<r then qsort(m,i,r,k);
end;

[Poma][a]

код оформляй (с помощью # )

[narco3]

Сообщение от Poma][a

код оформляй (с помощью # )

так сойдет???