Помогите понять код программы. Опции

[bmwmylovely]

Данн прямоугольный массив 10х20 напишите программу поиска стороки с найменьшей суммой элементов, вывести на зкран номер строки и сумму её элементов.

{Часть 1}

var i,x,j,min,s, imin:integer;
A:array [0..10,0..20] of integer;
begin
  for i:=1 to 10 do
  for j:=1 to 20 do
      A[i,j]:=random(10)+11;

  for i:=1 to 10 do
      for j:=1 to 20 do
          write(A[i,j]:2,' ;');
{Часть 2}
imin:=1;
for j:=1 to 20 do
min:=min+A[1,j];

for i:=2 to 10 do
begin
    for j:=1 to 20 do
        s:=s+A[i,j];
    if s < min then
       begin
            min:=s;
            imin:=i;
       end;
    s:=0;
end;
writeln(' min, ' ',imin);

end.

Не могу понять вторую часть, а конкретно:

Код

imin:=1;
for j:=1 to 20 do
min:=min+A[1,j];

for i:=2 to 10 do
begin
    for j:=1 to 20 do
        s:=s+A[i,j];
    if s < min then

... может кто ни будь очень подробно объяснить, буду очень благодарен.

Сообщение отредактировано: APAL - 4.06.2013 9:16