Паскаль помогите плииз

[Matvey Sadkov]

нужно преобразовать массив таким образом чтобы сначала шли все элементы целая часть которых не превышает единицу а потом все остальные!!
воот код.

program massiv;
uses crt;
var i,c,k,sum,:integer;
a:=array[1..32] of integer;
begin
clrscr;
randomize;
for i:=1 to 32 do
begin
a[i]:=random(100)-50;
write('  ' ,a[i]:1);
end;
k:=0;
for i:=1 to 32 do
begin
if a[i]>0 then k:=K+1;
end;
writeln;
writeln('k=',k);
sum:=0;
for i:=1 to 32 do
begin
sum:=sum+a[i];
if a[i]=0 then sum:=0;
end;
writeln;
writeln('sum=',sum);
readln;
end.

воот дальше не знаю как ,помогите..

[Аватар]

воот код

Это код совсем с другой оперы

и не чего кросспостить

http://programmersforum.ru/showthrea...66#post1635766