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

[vova6161]

Последовательность a1, a2, …,an состоит из нулей и единиц. Поставить в начало этой последовательности нули, а затем единицы.
Моя нерабочая программа

program p5a;
  var
   A:array[1..20] of integer;
   i,n,J,k:integer;
   begin
   write('vvedite n=');
   readln(n);
   for i:=1 to n do
   begin
   write('vvedite A[',i,']=');
   readln(A[i]);
   end;
   J:=1;
   for i:=1 to n do
   if A[i]=0 then
   begin
   k:=A[i];
   A[i]:=A[J];
   A[J]:=k;
   inc(J);
   end;
   for i:=1 to n do
   begin
   write(A[i],' ');
   end;
   readln;
   end.

Помогите пожалуйста

Оформляем код правильно

[rubius2008]

Сообщение от vova6161

Последовательность a1, a2, …,an состоит из нулей и единиц. Поставить в начало этой последовательности нули, а затем единицы.

Самое простое посчитай количество нулей(или единиц), а потом заполни первые N элементов (N=количеству нулей) нулями, остальную часть массива единицами.

[vova6161]

Сообщение от rubius2008

Самое простое посчитай количество нулей(или единиц), а потом заполни первые N элементов (N=количеству нулей) нулями, остальную часть массива единицами.

Спасибо, а как первые N элементов заполнить нулями, а остальную часть массива единицами?
Я попытался сделать так:
var
A:array[1..20] of integer;
i,n,J,k:integer;
begin
write('vvedite n=');
readln(n);
for i:=1 to n do
begin
write('vvedite A[',i,']=');
readln(A[i]);
end;
j:=0;
for i:= 1 to n do
if A[i]=0 then j:=j+1;
for i:=1 to j do
a[i]:=0;
for i:=j to n do
a[i]:=1;
write(a[i]);
end.
но ничего не вышло

[rubius2008]

...
for i:=j to n do
a[i]:=1;
write(a[i]);
end.
но ничего не вышло

это исправить на

for i:=j+1 to n do a[i]:=1;
for i:=1 to n do write(a[i],' ');

[vova6161]

Спасибо огромное