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

[nick6161]

Как первые 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.

но ничего не вышло

 

[Dock1100]

for i:=1 to l do { l - количество елементов масива}
if i<=n then a[i]:=0 else a[i]:=1; { n- наше число N}

 

[nick6161]

for i:=1 to l do { l - количество елементов масива}
if i<=n then a[i]:=0 else a[i]:=1; { n- наше число N}

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