Дан одномерный массив. Все его элементы, равные нулю, переписать в начало массива, а остальные в конец. Язык Pascal

Var

a : array [1 ... 100] of integer;

n, i, c, free : integer;

begin

read (n);

for i : = 1 to n do read (a[i]);

c : = 0;

for i : = 1 to n do

if a[i] = 0 then c : = c + 1;

free : = n;

for i : = n downto 1

do

if a[i] 0 then

begin

a[free] : = a[i];

free : = free - 1;

end;

for i : = 1 to c do

a[i] : = 0;

for i : = 1 to n do

write (a[i], ' ');

end.