Матрица суммы элементов

[Smileonl]

Всем добрый день условия задачи таковы:
"Дана целочисленная матрица размером NxM. Найти сумму наименьших элементов ее нечетных строк и наибольших элементов ее четных строк."
Я делаю следующим образом

unit MyMath;
interface
 type TMas = array[1..10, 1..10] of integer;
 Procedure Matric(A : TMas; n,m : integer; var min, max, smin, smax, k, u : integer);
implementation
 Procedure Matric(A : TMas; n,m : integer; var min, max, smin, smax, k, u : integer);
  var i,j : integer;
begin
   min:=A[1,2];
   max:=A[1,1];
   u:=0;
   k:=0;
    for i:=1 to n do
     for j:=1 to m do begin
      if (A[i,j]<min) and (odd(i)) then min:=A[i,j];
      if (j=m) and (odd(i)) then begin  u:=u+min; min:=A[i+1,2];
        end; end;
     for i:=1 to n do
     for j:=1 to m do begin  max:=A[i,1];
      if (A[i,j]>max) and not (odd(i)) then max:=A[i,j];
      if (j=m) and not(odd(i)) then begin  k:=k+max;
        end;  end;


 end;
end.

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

[Xe-Xe]

   
   u:=0;
   k:=0;
    for i:=1 to n do   begin
    min:=A[i,1];
     for j:=2 to m do
      if (A[i,j]<min) and (i mod 2 =1) then min:=A[i,j];
     if i mod 2 =1 then
        u:=u+min;
    end;
     for i:=1 to n do begin
     max:=a[i,1];
     for j:=2 to m do
      if (A[i,j]>max) and  (i mod 2=0) then max:=A[i,j];
     if i mod 2=0
        then k:=k+max;
     end;

[Smileonl]

Сообщение от Xe-Xe

   
   u:=0;
   k:=0;
    for i:=1 to n do   begin
    min:=A[i,1];
     for j:=2 to m do
      if (A[i,j]<min) and (i mod 2 =1) then min:=A[i,j];
     if i mod 2 =1 then
        u:=u+min;
    end;
     for i:=1 to n do begin
     max:=a[i,1];
     for j:=2 to m do
      if (A[i,j]>max) and  (i mod 2=0) then max:=A[i,j];
     if i mod 2=0
        then k:=k+max;
     end;

Спасибо работает!

[IT-man]

for i:=1 to n do   begin
    ma:=A[i,1];
     for j:=2 to m do begin
      if (A[i,j]<ma) and (i mod 2 =1) then ma:=A[i,j];
      if (A[i,j]>ma) and  (i mod 2=0) then ma:=A[i,j];end;
        u:=u+ma;end;