Дана матрица размера 5 x 10. Найти минимальное значение среди сумм элементов всех ее строк и номер строки с этим минимальным значением — Pascal(Паскаль)

var     a:array[1..5,1..10] of integer;
        i,j,min,mini,c:integer;
 
Procedure FindSum(x:integer);
var     i:integer;
Begin
 c:=0;
 for i :=1 to 10 do
   c:=c+a[x,i];
 end;
 
 
Begin
  randomize;
  min:=10000;
  for i:=1 to 5 do
    for j:=1 to 10 do
      a[i,j]:=random(100);
  for i:=1 to 5 do begin
    findsum(i);
    if c<min then begin
      min:=c;
      mini:=i;
      end;
    end;
  writeln('Minimalnoe zna4enie ',min,' v stroke ',mini);
  end.