Матрица, Сортировка по суме элементов столбцов Опции

[TS*]

Всем добрый вечер. Не компилируеться програмка, зависает на процедуре сумирования элементов столбцов:

uses
   crt;
const
   m=5; n=7;
type
   realm = array[1..n] of real;
var
   mA: array[1..m] of realm;
   mS: array[1..n] of real;
   tr: boolean;
   e, v: integer; rr, tt: integer;

procedure fill_matrix(var mF: array of realm;ll, mm: integer);
var
   l, m: integer;
begin
   randomize;
   for l:=1 to ll do begin
      for m:=1 to mm do
      begin
         mF[l, m]:=random(300)-150;
      end; end;
end;

function suma_el_st(mT: array of realm;i, j: integer): real;
var
   k: integer;
   suma: real;
begin
   suma:=0;
   for k:=1 to i do
     suma:=suma+mT[k, j];
   suma_el_st:=suma;
end;

procedure perestanovka_st(mP: array of realm; x, y: integer);
var
   f: integer;
begin
 for f:=1 to m do
    begin
       mP[x, f]:=mP[x, f]+mP[y, f];
       mP[y, f]:=mP[x, f]-mP[y, f];
       mP[x, f]:=mP[x, f]-mP[y, f];
    end;
end;

begin
   fill_matrix(mA, m, n);
   {sort}
   repeat
      tr:=true;
      for e:=1 to n-1 do begin
         if suma_el_st(mA, e, n) < suma_el_st(mA, e, n+1) then begin
            perestanovka_st(mA, n, n+1);
            tr:=false;
         end;
      end;
   until tr;

   for rr:=1 to n do begin
         for tt:=1 to m do
         begin
            write(mA[rr, tt]);
         end;
         writeln;
   end;
end.

[Алена]

       mP[x, f]:=mP[x, f]+mP[y, f];
       mP[y, f]:=mP[x, f]-mP[y, f];
       mP[x, f]:=mP[x, f]-mP[y, f];

Это ты так пытаешься менять элементы местами? Смысл?

Второе - Array of ... индексируется с 0, а не с 1-цы...

[TS*]

       mP[x, f]:=mP[x, f]+mP[y, f];
       mP[y, f]:=mP[x, f]-mP[y, f];
       mP[x, f]:=mP[x, f]-mP[y, f];

Это ты так пытаешься менять элементы местами? Смысл?

Второе - Array of ... индексируется с 0, а не с 1-цы...

Спасибо, не знал что арей оф индексируеться с [0]. А менять местами элементы просто нравиться без дополнительной переменной. Одного не понимаю, почему в 6-ом столбце все элементы всегда рвны 0 ?

Ну во-первых, если программа не компилируется, то она и зависнуть не может. Такая пакость происходит только в RunTime, т.е. уже после компиляции и запуска.
Во-вторых, ошибка происходит в процедуре perestanovka_st. Ты хочешь поменять местами столбцы массива не вводя вспомогательную переменную, грубо говоря так:
a:=a+b;
b:=a-b';
a:=a-b;
но паскаль не умеет отнимать и складывать массивы. У тебя есть два выхода:
1 Если программируешь на Fpc воспользуйся Перегрузкой операций
2 меняй их значения используя 3-ью переменную.

Где идет зависание "видно" при комбинацыи Ctrl + Break, и я не отнимаю масивы, а элементы. При вводе дополнительной переменной проблема осталась