Delphi 7, задача с массивами

[seriy_volk 228]

Всем доброго времени суток! Помогите, пожалуйста, не работает подпрограмма сортировки.

Условие задачи: Даны векторы A, B, C, D. Построить матрицу P, строками которой соответственно являются векторы A, B, C, D, предварительно упорядоченные в порядке убывания. Упорядочение вектора в порядке убывания оформить в виде подпрограммы. Исходные данные:
A={0.5; 1.8; 2.35; 4.1};
B={0.15; -0.1; 2.8; 1};
C={3.3; 4.1; -1.5; 0.1};
D={2.25; 3.8; 0.45; -4.1}.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, OleCtnrs, AxCtrls, OleCtrls, VCF1;

type
matr=array [1..4,1..4] of real;
  arr=array [1..4] of real;
  TForm1 = class(TForm)
    F1Book1: TF1Book;
    OleContainer1: TOleContainer;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure N3Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  v:matr;
  a,b,c,d:arr;
  const
  n=4;

implementation

{$R *.dfm}

procedure sort(x:arr);
var i,j:integer; buf:real;
begin
for i:=1 to n do
    for j:=1 to n-i do
            if (x[j] > x[j+1]) then
                 begin
                    buf := x[j];
                    x[j] := x[j+1];
                    x[j+1] := buf;
                end;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
close
end;

procedure TForm1.N1Click(Sender: TObject);
var i:integer; f:textfile;
begin
label1.caption:='A=  ';
label2.caption:='B=  ';
label3.caption:='C=  ';
label4.caption:='D=  ';
reset(F,'x.txt');
for i:=1 to 4 do read(F,a[i]);
for i:=1 to 4 do read(F,b[i]);
for i:=1 to 4 do read(F,c[i]);
for i:=1 to 4 do read(F,d[i]);
sort(a);sort(b);sort(c);sort(d);
for i:=1 to 4 do begin label1.caption:=label1.caption+floattostr(a[i])+'  ';
label2.caption:=label2.caption+floattostr(b[i])+'  ';
label3.caption:=label3.caption+floattostr(c[i])+'  ';
label4.caption:=label4.caption+floattostr(d[i])+'  ';
end;
n2.Enabled:=true;
end;



end.

[Pavia]

procedure sort(x:arr);

Что-бы результат возвращался нужно переменную объявить как var, иначе вы будете работать с локальной копией без возврата результата.

procedure sort(var x:arr);