uses
  crt;

const
  P = 5;
  Q = 4;

var
  i, j, IndexMaxSum: integer;
  PQ:      array[1..P, 1..Q] of real;
  Sum, MaxSum, Mem: real;
  QSummes: array[1..Q] of real;

  procedure ShowTablePQ;
  begin
    clrscr;

    for j := 1 to Q do
      Write('     Q', j);
    writeln;
    writeln('---------------------------------------');

    for i := 1 to P do
    begin
      Write('P', i);
      for j := 1 to Q do
      begin
        Write(PQ[i, j]: 7: 2);
      end;
      writeln;
    end;

  end;

begin

  for i := 1 to P do
    for j := 1 to Q do
    begin
      Write('  P', i, ' --> Q', j, ' =');
      Read(PQ[i, j]);
    end;

  ShowTablePQ;

  Writeln('Суммы строк матрицы:');
  for i := 1 to P do
  begin
    Sum := 0;
    for j := 1 to Q do
      Sum := Sum + PQ[i, j];
    if (i = 1) or (Sum > MaxSum) then
    begin
      MaxSum      := Sum;
      IndexMaxSum := i;
    end;
    writeln(' Строка ', i, ' Sum=', Sum: 0: 2);
  end;
  writeln('Максимальная сумма (', MaxSum: 0: 2, ') в строке ', IndexMaxSum, '.');

  writeln;
  writeln('Выносим строку с максимальной суммой на первую позицию');
  readln;
  for j := 1 to Q do
  begin
    Mem      := PQ[1, j];
    PQ[1, j] := PQ[IndexMaxSum, j];
    PQ[IndexMaxSum, j] := Mem;
  end;

  ShowTablePQ;

  writeln;

  writeln('Выводим все элементы c грузом > 10');
  readln;
  writeln('-START-------------------');
  for i := 1 to P do
    for j := 1 to Q do
      if PQ[i, j] > 10 then
        writeln('  P', i, ' --> Q', j, ' =', PQ[i, j]);
  writeln('---------------------END-');
end.