Как вывести минимальное значение d?

[paneev02]

 program lab6;const n=4;type matr=array[1..n,1..n] of real;var a: matr;i,j,k:integer;d, min:real;begin Writeln('Массив:');for i:=1 to n dobeginfor j:=1 to n dobegina[i,j]:=sin(i+j);write(a[i,j]:6:2);end;writeln;end;for i:=1 to n dobegind:=0;for k:=1 to n dod:=(d+abs(a[i,k]));writeln('Строка ',i:2,' D=',d:6:2); end.

[>Quiet Snow<]

На каком промежутке вычислений нужно фиксировать минимальное?
После каждой итерации k(минимальным будут первые итерации) или после того как k станет равным n?