Вывод сортировки

[MaXiS]

Как правильно вывести четные элементы отсортированный массив в memo
P.s накосячил или с проверкой на четность или с выводом чисел.

procedure TForm1.Button1Click(Sender: TObject);
var i, j, T : integer;
sortlow : array [1..max] of integer;
begin
begin
Randomize;
Memo1.Clear;
for i := 1 to max do begin
sort[i] := random(max);
memo1.Lines.Add(inttostr(sort[i]));
end;
for i := 1 to max do sortlow[i] := sort[i];
for i := max downto 1 do
for j := i to max-1 do
if sort[i] mod 2 = 0 then
if sortlow[j] > sortlow[j + 1] then begin
T := sortlow[j];
sortlow[j] := sortlow[j + 1];
sortlow[j + 1] := T ;
memo1.Lines.Exchange((j-1),j);
end;
end;
end;
end.

[Dj_smart]

Я ничего например не понял из вопроса.
Первое что бросается в глаза:
Memo1.Lines.Clear;

[Air]

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

Первое что бросается в глаза:
Memo1.Lines.Clear;

Какая разница и так и сяк работает?

[Dj_smart]

Какая разница и так и сяк работает?

Пока ничего не работает...
MaXiS
А на какой стадии ошибка?

[Air]

procedure SortPuz (var Arr : array of Integer);
var
i : Integer;
Temp : Integer;
Flag : Boolean;
begin
repeat
 Flag := False;
 for i := 0 to length(Arr) - 2 do
  if Arr [i] > Arr [i + 1] then
   begin
    Temp := Arr [i];
    Arr [i] := Arr [i + 1];
    Arr [i + 1] := Temp;
    Flag := True;
   end;
until
 Flag = False;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
max =10;

var i, j, T : integer;
sortlow : array [1..max] of integer;
sort : array [1..max] of integer;
begin
Randomize;
Memo1.Clear;

for i := 1 to max do
 sort[i] := random(max);

{sort[1]:=3;
sort[2]:=7;
sort[3]:=1;
sort[4]:=6;
sort[5]:=8;
sort[6]:=0;
sort[7]:=9;
sort[8]:=5;
sort[9]:=2;
sort[10]:=11;}

for i := 1 to max do
  sortlow[i] := 0;
j:=1;
for i := 1 to max do
 if sort[i] mod 2 = 0 then
  begin
   sortlow[j] := sort[i];
   j:=j+1;
  end;
SortPuz(sortlow);
for i := 1 to max do
 memo1.Lines.Add(inttostr(sortlow[i]));
end;

Можно так, только повторяются некоторые числа

[Stilet]

Я бы сортировал мемо так:

are:TStringList;
..............
are.Text:=Memo1.Lines.Text;
are.Sort;
Memo1.Lines.Text:=are.Text;

Ну а если нужны только четные, то are наполнял бы просто выборочно.