Упорядочение одномерного массива.

[Arzamaks]

Задача такая простая, но у меня почему то не выходит... проверьте что не так!
Одномерный вещественный массив вводиться с клавиатуры. Нужно упорядочить элементы по возрастанию.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const n=10;
var
a: Array [1..n] of real;
buf:real;
i,j:integer;
begin
for i:=1 to n do
a[i]:=strtofloat(Memo1.lines[i-1]);
for i:=1 to n do
for j:= n-1 downto i do
if (a[j+1] < a[j]) then
begin
buf:=a[j]; 
a[j]:=a[j+1]; 
a[j+1]:=buf;
end;
Memo2.Clear;
for i:=1 to n do
Memo2.Lines.Add(floattostr(a[i]));
end;
end.

[dr.Chas]

Правила тут

[Arzamaks]

Сообщение от dr.Chas

Правила тут

Исправил. Извиняюсь!

[dr.Chas]

var a: Array [1..5] of real;
    buf:real;
    i, j, n:integer;
begin
  j:=Memo1.Lines.Count;
  for i:=1 to j do
    a[i]:=strtofloat(Memo1.lines[i-1]);

  for i:=1 to j-1 do
    for n:=1 to j-1 do
      if (a[n] > a[n+1]) then
      begin
        buf:=a[n];
        a[n]:=a[n+1];
        a[n+1]:=buf;
      end;


  Memo2.Clear;
  for i:=1 to j do
    Memo2.Lines.Add(floattostr(a[i]));
end;

[Arzamaks]

Спасибо, всё работает!!!