Найти строку с наименьшей суммой в массиве 3 на 4 — Pascal(Паскаль)

program sum_mas2;
var a:array[1..3,1..4] of integer;
    b:array[1..3] of integer;
min,nmin,   h,sum,i,j:integer;
begin
sum:=0;
for i:=1 to 3 do
for j:=1 to 4 do begin
write ('a(',i,',',j,')= ');
readln (a[i,j]);
end;
h:=1;
for i:=1 to 3 do begin
for j:=1 to 4 do
sum:=sum+a[i,j];
b[h]:=sum;
h:=h+1;
end;
for h:=1 to 3 do
min:=b[1];
nmin:=1;
if b[h]<min then begin
min:=b[h];
nmin:=h;
end;
writeln ('минимальная строка №', nmin,'наименьшая сумма',min);
end.