В произвольно заданной матрице размером 4х6 определить минимальные элементы в каждой строке и найти их сумму.

program test;
uses CRT;
 var
  a : array [0..1000, 0..1000] of integer;
  i, j, s, k : integer;
 
begin
 for i:=1 to 4 do
                for j:=1 to 6 do Read(a[i][j]); //ввод матрицы
 
 for i:=1 to 4 do
                for j:=1 to 6 do
                               for k:=1 to 6-j do if (a[i][k] > a[i][k+1]) then begin
                                                                                 a[i][k]:=a[i][k]+a[i][k+1]; //сортировка строки
                                                                                 a[i][k+1]:=a[i][k]-a[i][k+1];
                                                                                 a[i][k]:=a[i][k]-a[i][k+1];
                                                                                end;
 
 for i:=1 to 4 do s:=s+a[i][1]; //сумма элементов
 
 
WriteLn(s);
end.