Исправление кода

for i:=0 to n-1 do begin
for j:=n+1 downto i do

if a[j]>a[j+1] then begin   // начинаем сортировку
  c:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=c;

procedure TForm1.Button1Click(Sender: TObject);
var
   A: array[1..5] of real;
   i, j: integer;
   c: real;
   S: String;
begin
     A[1] := 10; A[2] := 3; A[3] := -10; A[4] := 1; A[5] := -3;
     for i := 1 to 4 do
       for j := i + 1 to 5 do
         if (A[i] > A[j]) then
           begin
             c := A[i];
             A[i] := A[j];
             A[j] := c;
           end;
     for i := 1 to 5 do
       S := S + FloatToStr(A[i]) + '; ';
     Caption := S;
end;

procedure TForm1.Button1Click(Sender: TObject);
  var a:array[1..9] of real;
    i,j,c:integer;
begin
    for i:=1 to 9 do begin
  Memo1.lines[i]:=IntToStr(random(10)); // ввод массива с случайными числами
  a[i]:=StrToInt(Memo1.lines[i]);
end;
//a[j]:=StrToInt(Memo1.lines[i]); //вывод массива случайными числами
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
a:array[1..9] of integer;
j,i,c:integer;
begin
     for i:=1 to 9 do
for j:=i+1 to 9 do
if a[i]>a[j] then
begin   // начинаем сортировку
  c:=a[i];
  a[i]:=a[j];
  a[j]:=c;
end;
   for i:=1 to 9 do
     Memo2.Lines[j]:=Memo2.Lines[j]+FloatToStr(a[j]); // вывод в ноую таблицу
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   i, j, n: integer;
   A: array[1..100] of real;
   c: real;
begin
     n := Memo1.Lines.Count;
     for i := 1 to n do
       A[i] := StrToFloat(Memo1.Lines[i - 1]);
 
     for i := 1 to n - 1 do
       for j := i + 1 to n do
         if (A[i] > A[j]) then
           begin
             c := A[i];
             A[i] := A[j];
             A[j] := c;
           end;
 
     for i := 1 to n do
       Memo2.Lines.Add(FloatToStr(A[i]));
end;