Сортировка выборкой.

[Valik_000]

( Object Pascal )
Помогите с сортировкой ( исправить ).
Вот задание . (Все работает но проблема с сортировкой).
Дана целочисленная прямоугольная матрица. Характеристикой строки целочисленной матрицы назовем сумму ее отрицательных четных элементов. Переставляя строки заданной матрицы, расположить их в соответствии с неубыванием характеристик. Использовать сортировку выбором
Нужно отсортировать строки сортировкой выбором

procedure TForm1.Button5Click(Sender: TObject);

var x, k, i, j : integer;
  buf:integer;
begin
for i:=1 to n-1 do
  begin
k:=i; x:=b[i];
   for j:=i+1 to n do
    if b[j] < x then
      begin
      k:=j; x:= b[j];
      end;
    b[k]:= b[i]; b[i]:=x;
for j:=1 to m do
begin
buf:=a[i,j];
a[i,j]:=a[k,j];
a[k,j]:=buf;
end;
end;
for i:=1 to n do
begin
StringGrid4.Cells[0,i] := IntToStr( b[i]);
for j:=1 to m do
begin
StringGrid2.Cells[j,i] := IntToStr( a[i,j]);
end;
end;
end;

Помогите исправить(

Люди отзовитесь , пожалуйста))

Помогите ((((

[cleac]

И зачем было самому себе в пост писать? Кто-то всё равно найдёт, я, вот, например, нашёл =)
Ща посмотрим твои ошибки

for i := 0 to 9 do
  begin
    m:=i;
    for j := i+1 to 10 do
      begin
        if b[j]<b[m] then
          m:=j;
        if m<>i then
        begin
          min:=b[i];
          b[i]:=b[m];
          b[m]:=min;
          m:=i;
        end;
      end;
  end;

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