Сортировка по неспаданию

[Bulletinn]

Нужно отсортировать вектор Х по неспаданию, а этого не происходит. Подскажите где ошибка в процедуре сортировки...

program prLab3;
 uses crt;
 const n=6;
 var     i,j,k: 0..n; imax,jmax: byte;
    sum,max,fun,prom: real;
                   A: array [1..n,1..n] of real;
                   X: array [1..n] of real;
 procedure line;
     var line: byte;
    begin
     textcolor(green);
     for line:=1 to 40 do write('_');
     writeln;
     textcolor(white);
    end;
 procedure sort(var B: array of real; m: byte);
    var i,j,imin: byte;
             min: real;
    begin
     for i:=1 to m-1 do
      begin
       min:=B[i];
       imin:=i;
       for j:=i+1 to m do
        begin
         if B[j]<min then
          begin
           min:=B[j];
           imin:=j;
          end;
         B[imin]:=B[i];
         B[i]:=min;
        end;
      end;
    end;
 function fx(i,j: byte): real;
    begin
     fx:=(3.7-j-2)*(i-4.3*j)-4.7*i;
    end;
begin
 ClrScr;
 line;
 Writeln('Matrix A:');
 line;
 max:=0;
 for j:=1 to n do max:=max+fx(i,j);         {The sum of elements of 1-st line}
 imax:=1;
 for i:=1 to n do
  begin
   sum:=0;
   for j:=1 to n do
    begin
     A[i,j]:=fx(i,j);                       {Filling the matrix €}
     write(A[i,j]:6:2,'   ');
     sum:=sum+A[i,j];                       {The sum of elements of i-th line}
    end;
   if sum>max then                          {Search of a line with the max sum}
    begin
     imax:=i;
     max:=sum;
    end;
   writeln;
  end;
 readkey;
 line;
 writeln('Vector X:');
 line;
 {for i:=1 to n do X[i]:=A[imax,i]; }     {Filling a vector}
 for i:=1 to n do readln(x[i]);
 sort(X,n);                             {Vector X sorting}
 max:=abs(2*x[1]+1)-abs(x[1]);          {g(x). Begin}
 for i:=2 to n do
  begin
   fun:=abs(2*x[i]+1)-abs(x[i]);
   if fun>max then
    begin
     max:=fun;
     imax:=i;
    end;
  end;                                  {g(x). End}
 for i:=1 to n do write(X[i]:6:2,'   ');
 readkey;
 writeln;
 line;
 writeln('g(x)=',chr(179),'2x+1',chr(179),'-',chr(179),'x',chr(179),';');
 writeln('g(',x[imax]:0:2,')=',max:0:2,' ;');
 readkey;
end.

[Serge_Bliznykov]

не знаю, что у Вас там навороченно.
возьмите процедуру сортировки из этого кода:

uses CRT;

 const n=6;
 var     
    i,j,k: 0..n; imax,jmax: byte;
    sum,max,fun,prom: real;
    A: array [1..n,1..n] of real;
    X: array [1..n] of real;

 procedure line;
     var line: byte;
    begin
     textcolor(green);
     for line:=1 to 40 do write('_');
     writeln;
     textcolor(white);
    end;

 procedure sort(var B: array of real; m: byte);
    var i,j  : byte;
        temp : real;
        lowB, HighB : integer;
    begin
     lowB := Low(B);
     HighB := High(B);
     for i:=lowB to HighB-1 do
       for j:=i+1 to HighB do
         if B[i]>B[j] then
          begin
           temp := B[i];
           B[i] := B[j];
           B[j] := temp;
          end;
    end;

begin
 Randomize;
 WriteLn;
 Write('X berofe sort: ');
 for i:=1 to n do begin
   x[i] := Random(100)/(random(100)+1);
   Write(X[i]:0:3,' ');
 end;
 WriteLn;

 sort(X,n);                             {Vector X sorting}

 Write('X after sort: ');
 for i:=1 to n do
   Write(X[i]:0:3,' ');
 WriteLn;

 readln
end.

[Bulletinn]

К сожелению ваша процедура также не хотела сортировать. Пришлось вставить свою сортировку непосредственно в программу и всё заработало, но в любом случае спасибо за помощь.

[Sciv]

    lowB := Low(B);
     HighB := High(B);

Это уже не паскаль....

[Serge_Bliznykov]

Сообщение от Sciv

Это уже не паскаль....

А что это, простите? Почему Вы сделали такой вывод?

BTW, я программку прогонял отлаживал в TurboPascal, если что..

Сообщение от Bulletinn

К сожелению ваша процедура также не хотела сортировать. Пришлось вставить свою сортировку непосредственно в программу и всё заработало, но в любом случае спасибо за помощь.

Да не за что. Только так не бывает, что одна и та же программа у кого-то работает, у кого-то не работает...
Впрочем, раз Вы свою проблему решили, то и хорошо, остальное уже лирика...

[Sciv]

А что это, простите? Почему Вы сделали такой вывод?

Серж, простите, туплю с утра жутко Паскаль, конечно же

[Serge_Bliznykov]

Sciv, а ничего страшного, бывает!