Упорядочить те строки матриц, сумма которых есть в другом массиве

const
  Lmax = 20;// Максимальная длинна массива
 
var
  i, j, l, c, p, a, b: integer; // Счётчики
  n, m: integer; // Строчки и столбики
  k: integer; // Длина массива Z
  sumel: integer; // Сумма элементов
  temp: integer; // Временная переменная для сортировки
  Q: array[1..Lmax, 1..Lmax] of integer;
  Z: array[1..Lmax] of integer;
  flag: boolean;
 
begin
  {Вввод необходимых данных}
  repeat
    write('Пожалуйста, введите ко-во строчек в матрице Q ∈ [1;', Lmax, ']: ');
    readln(n);
  until (n >= 1) and (n <= Lmax);
  repeat
    write('Пожалуйста, введите ко-во столбцов в матрице Q ∈ [1;', Lmax, ']: ');
    readln(m);
  until (m >= 1) and (m <= Lmax);
  writeln('Теперь, пожалуйста, введите саму матрицу Q: ');
  for i := 1 to n do 
    for j := 1 to m do 
    begin
      write('Q[', i, ',', j, '] > ');
      read(Q[i, j]);
    end;
  {Показ матрицы до сортировки}
  writeln('Матрица до сортировки: ');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(Q[i, j]:3);
    writeln;
  end;
  repeat
    write('Пожалуйста, введите длину массива Z ∈ [1;20]: ');
    readln(k);
  until (k >= 1) and (k <= Lmax);
  for i := 1 to k do
  begin
    write('Z[', i, '] > ');
    read(Z[i]);
  end;
  {Проверка Q[n,m]=Z[k]}
  sumel := 0;
  a := 1;
  flag := false;
  for i := 1 to n do
  begin
    for j := 1 to m do
      sumel := sumel + Q[i, j];
    while (a <= k) and (not flag) do
      if sumel = Z[a] then 
      begin
        flag := true;
        b := n; // Запоминаем строчку, сумма которой равна элементу массива
      end
      else inc(a);
    //end;
    writeln(flag);
    if flag then
    begin
      for c := 1 to m - 1 do
        for p := c + 1 to m do
          if Q[b, c] < Q[b, p] then
          begin
            temp := Q[b, c];
            Q[b, c] := Q[b, p];
            Q[b, p] := temp;
          end;
    end; end;
  {Вывод на экран рез-тов}
  if flag = false then writeln('Нет сорртировки')
  else
    writeln('Матрица после сортировки:  ');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(Q[i, j]:3);
    writeln;
  end;   
end.

  {Проверка Q[n,m]=Z[k]}
  for i := 1 to n do
  begin
    sumel := 0; // Эти 3 действия надо производить заново для каждой строки Q, поэтому вносим в цикл
    a := 1;
    flag := false;
 
    for j := 1 to m do
      sumel := sumel + Q[i, j];
    while (a <= k) and (not flag) do
      if sumel = Z[a] then 
      begin
        flag := true;
        b := i; // Запоминаем СТРОЧКУ, поэтому не n, а i, хотя этого можно было и не делать
      end
      else inc(a);
    //end;
    writeln(flag);
    if flag then
    begin
      for c := 1 to m - 1 do
        for p := c + 1 to m do
          // вот в этом цикле, вместо Q[b, ...] можно было использовать Q[i, ...],
          // потому что все равно, если Flag = False, сюда выполнение не приходит
          if Q[b, c] < Q[b, p] then 
          begin
            temp := Q[b, c];
            Q[b, c] := Q[b, p];
            Q[b, p] := temp;
          end;
    end; end;
  {Вывод на экран рез-тов} 
 
  // Твой вариант вывода не будет работать, поскольку Flag меняется для каждой строки, 
  // вводи глобальный флажок, который при первом же изменении Flag-а перебросится в True
 
  if not Global_Flag then writeln('Нет сортировки')
  else
    writeln('Матрица после сортировки:  ');