Delphi. Перемещение всех элементов массива с четными значениями в конец массива2.

[deathz0r]

Требуется создать приложение. Основная задача - сортировка массива. Массив задается случайными числами. Все элементы массива с четным значением переместить в конец массива. Написал, но почему, то в поле memo2: элементы не сортируются, а вместо их значений присваиваются 0. Подскажите как исправить/дополнить:

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=StrToInt(Edit1.Text);
If a>10 then
begin
Application.MessageBox('Неверное количество элементов', 'Ошибка',MB_OK);
a:=0;
exit;
end;
randomize;
Memo1.Lines.Clear;
for i:=1 to a do begin
m[i]:=random(11);
Memo1.Lines.Add(IntToStr(i) + ':'+' '+' '+ IntToStr(m[i]));
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
j:=0;
r:=0;
a:=StrToInt(Edit1.Text);
Memo2.Lines.Clear;
for i:=1 to a do
for j:=1 to a-1 do
begin
m2[j]:=m[i];
if m2[j] mod 2 = 0 then
begin
r:=m2[j+1];
m2[j+1]:=m2[j];
m2[j]:=r;
end;
Memo2.Lines.Clear;
for i:=1 to a do
Memo2.Lines.Add(IntToStr(i) + ':'+' '+' '+ IntToStr(m2[i]));
end;
end;

[ImmortalAlexSan]

unit Unit1;

interface

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

Const mas=10;

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

var
  Form1: TForm1;
  buf:integer;

implementation

uses Math;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var i,j,k,chet,nechet:integer;
a,b,c:array [1..mas] of integer;
begin
Memo1.Text:='';
Memo2.Text:='';
Randomize;
For i:=1 to mas do
begin
a[i]:=RandomRange(1,100);
memo1.lines.Add(inttostr(i)+') '+inttostr(a[i]));
end;
j:=-1;
k:=0;
chet:=0; nechet:=0;
For i:=1 to mas do
If a[i] mod 2=0 then
begin
inc(j);
b[mas-j]:=a[i];
a[i]:=0;
inc(chet);
end;
For i:=1 to mas do
If a[i] mod 2=1 then
begin
inc(k);
c[k]:=a[i];
a[i]:=0;
inc(nechet);
end;
j:=-1;
For i:=1 to nechet do
a[i]:=c[i];
For i:=nechet+1 to mas do
begin
inc(j);
a[i]:=b[mas-j];
end;
For i:=1 to mas do
Memo2.Lines.Add(inttostr(a[i]));
end;

end.