Help me

[len4ik]

Помогите мне, пожалуйста!
Вот задача: Одномерный массив из N-эл-тов заполнить с клавиатуры, отрицат эл-ты перенести в конец массива, сдвинув остальные влево, сохраняя их порядок.
Помогите сделать ее на visual basic

вот что у меня на паскале получилось(алгоритм):
for i:= 0 to длина_массива do
for j:= i to длина_массива do
if массив[j] > 0 then
begin
v:= массив[j] {v - переменная того же типа, что и переменные в массиве}
for k:= j downto i do
массив[j]:= массив[j-1]
массив[i]:= v;
break; {это выход из цикла где j (вторая строчка)}
end.

[Viper]

1. срочно переименовывай тему!
2. Срочно читай правила.
3. Какие-то попытки сделать это на VB имели место быть или как?

З.Ы. что-то это очень сильно напоминает то ли контрольную, то ли что-то вроде контрольной...