sleepes, вот держи, правда исходник на MIDletPascal. Думаю переделать будет не так уж и трудно:
program Vfcc;
var a,a1,a2:array[1..10]of integer;
l,j,i,q:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(10)-5;
for i:=1 to 10 do
drawText(''+a[i], 0, i*12);
l:=0;
j:=0;
for i:=1 to 10 do
if(a[i]<0)then
begin
l:=l+1;
a1[l]:=a[i];
end
else
begin
j:=j+1;
a2[j]:=a[i];
end; for i:=1 to l+1 do
a[i]:=a1[i];
for i:=l+1 to 10 do
a[i]:=a2[i-l];
for i:=1 to 10 do
drawText(''+a[i], 16, i*12);
repaint;
delay(15000);
end.
не работает 
