Массив

[Skrip]

В матрице размером М*N поменять местами строку, содержащую элемент с большим значением, со строкой, которая содержит минимальный элемент.
Я не могу понять где ошибка..! (
вот фрагмент:

//нахождение минимального и максимального элемента
  for i:=1 to N do
    for j:=1 to M do
    begin
      if A[i,j]>=A[i,j+1] then
      begin
//        max:=A[i,j];
        k:=i;
      end;
      if A[i,j]<=A[i,j+1] then
      begin
//        min:=A[i,j];
        g:=i;
      end;
    end;
    //перемена строк местами
    for j:=1 to M do
    begin
      temp:=A[k,j];
      A[k,j]:=A[g,j];
      A[g,j]:=temp;
    end;
    for i:=1 to N do
      for j:=1 to M do
      begin
        StringGrid2.Cells[j,1]:=FloatToStrf(A[k,j],fffixed,6,2);
      end;
end;

Но, строки он не меняет местами.. (

[Stilet]

//перемена строк местами

A g и k вообще правильно считаются? проверял?
И кстати:

 for i:=1 to N do
      for j:=1 to M do
      begin
        StringGrid2.Cells[i,j]:=FloatToStrf(A[i,j],fffixed,6,2);
      end;

[Skrip]

  //íàõîæäåíèå ìèíèìàëüíîãî è ìàêñèìàëüíîãî ýëåìåíòà
  max:=0;
  min:=0;
  for i:=1 to N do
    for j:=1 to M do
    begin
      if max<=A[i,j] then
      begin
        max:=A[i,j];
        k:=i;
      end;
      if min>=A[i,j] then
      begin
        min:=A[i,j];
        g:=i;
      end;
    end;
    Memo1.Lines.Add('min='+FloatToStrF(min,fffixed,6,2)+' max='+FloatToStrF(max,fffixed,6,2));

Минимальное значение не правильно считает.. не могу разобраться почему?

[Skrip]

Все! Все! разобралась.. )) Спасибо!
У меня получилось так:

//нахождение минимального и максимального элемента
  max:=0;
  min:=10000;
  for i:=1 to N do
    for j:=1 to M do
    begin
      if max<=A[i,j] then
      begin
        max:=A[i,j];
        k:=i;
      end;
      if min>=A[i,j] then
      begin
        min:=A[i,j];
        g:=i;
      end;
    end;
    Memo1.Lines.Add('min='+FloatToStrF(min,fffixed,6,2)+' max='+FloatToStrF(max,fffixed,6,2));
    //перемена строк местами
    for j:=1 to M do
    begin
      temp:=A[k,j];
      A[k,j]:=A[g,j];
      A[g,j]:=temp;
    end;
    for i:=1 to N do
      for j:=1 to M do
      begin
        StringGrid2.Cells[j,i]:=FloatToStrf(A[i,j],fffixed,6,2);
      end;
end;