Сортировка массива, который задан константой. Pascal

[Sting95]

Задание: Заполнить массив как константу и сортировать по возрастанию строку с наименьшей суммой элементов.

Вот некоторые наработки:

uses crt;
const X:array [1..3,1..4] of integer=((1,3,5,7),(2,4,6,8),(2,5,7,3));

var L,i,j:integer;
    
    
begin
writeln('Як заповнювати масив?');
writeln('1.Як константу');
writeln('2.Випадковi числа');
writeln('3.Вручну');
readln(L);
clrscr;

Case L of
 1: begin
    writeln('До перетворення');
    for i:=1 to 3 do
    begin
     for j:=1 to 4 do
      write (X[i,j],' ');
      writeln
      end;
      end;
      end;
      end.

нужен код как высчитать строку с наименьшей суммой элементов и вывести уже обработанный массив.

[Serge_Bliznykov]

какой у Вас компилятор Паскаля?

[reflexx]

program task_1;

const
  rows = 3;
  cols = 4;
  
type
  TMatrix = array [1..rows, 1..cols] of Integer;
  
const
  Matrix: TMatrix = ((1, 3, 5, 7), (2, 4, 6, 8), (2, 5, 7, 3));
  
var
  NewMatrix: TMatrix;
  MinSumm: Integer;
  Summ: Integer;
  MinIndex: Integer := 1;
  
begin
  WriteLn('Матрица, заданная константой: ');
  
  for var i:=1 to rows do begin
    for var j:=1 to cols do 
     Write(Matrix[i, j]: 3);
    WriteLn();
  end; 
  
  for var i:=1 to rows do begin
    for var j:=1 to cols do begin
      if (i = 1) then
       MinSumm+=Matrix[i, j];
      Summ+=Matrix[i, j]; 
    end;
    if (not (i = 1)) then
     if Summ < MinSumm then begin
       MinSumm:=Summ;
       MinIndex:=i;
     end;
    Summ:=0; 
  end;
  
  WriteLn('Индекс строки с минимальной суммой: ', MinIndex);
  
  NewMatrix:=Matrix;
  for var i:=1 to cols-1 do 
   for var j:=cols-1 downto i do
    if (NewMatrix[MinIndex, j] > NewMatrix[MinIndex, j+1]) then begin
      var temp:=NewMatrix[MinIndex, j];
      NewMatrix[MinIndex, j]:=NewMatrix[MinIndex, j+1];
      NewMatrix[MinIndex, j+1]:=temp;
    end;
    
  WriteLn('Новая матрица с отсортированной ', MinIndex, '-ой строкой');
  
  for var i:=1 to rows do begin
    for var j:=1 to cols do 
     Write(NewMatrix[i, j]: 3);
    WriteLn();
  end;   
end.

PS. PascalABC.NET (1.8). Какой уж был
PPS. ТС, указывай размерность массива. Уже во второй теме нужно по коду гадать.