Переставляя строки заданной матрицы, расположить их в соответствии с ростом характеристики

{Номер минимального элемента в массиве}
var a:array[1..100] of integer;
    i:integer;
    n:integer;
    min:integer;
    nmin:integer;
begin
  writeln('Введите количество элементов массива:');
  readln(n);
  writeln('Введите массив:');
  for i:=1 to n do readln(a[i]);
  min:=a[i];
  nmin:=1;
  for i:=2 to n do
    if a[i]<min then
      begin
        min:=a[i];
        nmin:=i;
      end;
  writeln('Номер минимально элемента массива:',' ',nmin);
end.

{Найти сумму элементов массива между первым и вторым отрицательными элементами}
var
  a: array[1..100] of integer;
  i: integer;
  n: integer;
  sum: integer;
  q1,q2: integer;
 
begin
  writeln('Введите количество элементов массива:');
  readln(n);
  writeln('Введите массив:');
  for i := 1 to n do readln(a[i]);
  sum := 0;
  for i := 1 to n do
    if a[i] < 0 then 
    begin
      q1 := i;
      break;
    end;
  for i := q1+1 to n do
    if a[i] < 0 then
    begin
      q2 := i;
      break;
    end;
  for i := q1+1 to q2-1 do sum := sum + a[i];  
  writeln('Cумма элементов массива между первым и вторым отрицательными элементами равна: ',' ',sum);
end.