Одномерные массивы.

[Izekil]

Помогите пожалуйста с данной задачкой:
Одномерный массив а длиной М. Переместить нулевые элементы массива в конец, сдвинув остальные элементы влево.
Приведу то, что я сделал на данный момент:
настроил 2 стрингрида и
var
k:integer;
a:array[1..30] of integer;


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
k:=strtoint(edit1.Text);
if (k>0) and (k<=30) then
s1.ColCount:=k
else
ShowMessage('Введи размер массива >0 и <=30 ')

end;

procedure TForm1.Button3Click(Sender: TObject);
var
i,j,n:integer;
begin
for i:=1 to k do
a[i]:=strtoint(S1.Cells[i-1,0]);

end;