Отсортируйте первую половину массива по возрастанию, а вторую по убыванию

var
  Form1: TForm1;
  i,j,f,n,r,m:integer;
  A:array [0..10] of integer; 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
For i:=0 to memo1.Lines.count -1  do
 A[i]:=StrToInt(memo1.Lines[i]);
 
  for i:= memo1.Lines.count -1 downto 2 do
    for j:=0 to (memo1.Lines.count div 2)-1  do
         if a[j]>a[j+1] then
           begin
               f:=a[j];
               a[j]:=a[j+1];
               a[j+1]:=f;
           end;
 
  for i:= memo1.Lines.count -1 downto 2 do
    for j:=memo1.Lines.count div 2+1  to i do
         if a[j]<a[j+1] then
           begin
               f:=a[j];
               a[j]:=a[j+1];
               a[j+1]:=f;
           end;
 For i:=0 to memo1.Lines.count -1 do
 memo2.Lines.Add(IntToStr(a[i]));
 end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j,f,n,m:integer;
    a:array  of integer;
begin
n:=memo1.Lines.count;
setlength(a,n);
for i:=0 to memo1.Lines.count -1  do
a[i]:=StrToInt(memo1.Lines[i]);
m:=n div 2;
for i:=m-1 downto 1 do
for j:=0 to m-2 do
if a[j]>a[j+1] then
 begin
  f:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=f;
 end;
for i:=n-1 downto m+1 do
for j:=m to n-2 do
if a[j]>a[j+1] then
 begin
  f:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=f;
 end;
for i:=0 to memo1.Lines.count -1 do
memo2.Lines.Add(IntToStr(a[i]));
end;