Задана прямоугольная матрица 5х3. найти номер строки, имеющей наименьшую сумму элементов.

Var
  a:array[1..5,1..3]of integer;
  i,j,s,smin,n:integer;
begin
n:=1;
for i:=1 to 5 do
  begin
  for j:=1 to 3 do
    begin
    a[i,j]:=random(10);
    write(a[i,j]:4);
    s:=s+a[i,j];
    end;
  if i=1 then smin:=s;
  if s<smin then
    begin
    smin:=s;
    n:=i;
    end;
  writeln('sum=':8,s);
  s:=0;
  end;
writeln('Номер искомой строки: ',n); 
end.