Дана прямоугольная матрица размера m*n. Составить программу, которая находит строки с наибольшей и наименьшей суммой элементов. Вывести найденные строки и суммы их элементов — Pascal(Паскаль)

Program p1;
const N=10;
var i,j,k,Min,Max,temp,nMin,nMax:integer;
  a:array[1..N, 1..N] of integer;
  
BEGIN
Randomize;
  For i:=1 to N do
    For j:=1 to N do
      a[i,j]:=Random(100)-50;
   For i:=1 to N do
   begin
   temp:=0;
     For j:=1 to N do
        temp:=temp+a[i,j];
        If temp<Min then
    begin
    Min:=Temp;
    nMin:=i;
    end;
    If temp>max then
    begin
    max:=Temp;
    nMax:=i;
    end;
end;
END.