Вопрос Помогите с задачкой на Delphi

[tatar4552583]

Помогите дописать программу, чтобы правильно выводило результат
Условие задачи:
"Дан массив из целых чисел. Упорядочить эти числа по знаку: сначала положительные, затем отрицательные в таком же порядке, как и в исходном массиве."
Программа:
var
mas1: array[1..100] of integer;
i, count, j, k, z: integer;
begin
count:=I_Memo.Lines.Count;
for i:=1 to count do
mas1:=StrToInt(I_Memo.Lines.Strings[i-1]);

j:=1;
for i:= 1 to count do
if mas1>0 then begin
z:=mas1[j];
mas1[j]:=mas1;
mas1:=z;
j:=j+1;
end;
P_Memo.Lines.Clear;
for i:=1 to count do
P_Memo.Lines.Add(IntToStr(mas1));
end;