Помогите с задачей, Убрать нули из одномерного массива Опции

[AIR]

Пожалуйста помогите в решении задачи как можно быстрее: Дан одномерный массив С, убрать из него нули и получить массив меньшего размера, не содержащего нулей. Заранее благодарю.

[AIR]

Спасибо сам дошел... Если кому-нибудь надо:
program zachot;
uses wincrt;
var
a: array [1..100] of integer;
b: array [1..100] of integer;
s,n,i,j: integer;
begin
clrscr;
write ('введите количество элементов массива ');
readln (n);
for i:=1 to n do
begin write ('a [',i,']=');
readln(a[i]);
end;
for i:=1 to n do
begin if a[i] <> 0 then
begin b[i]:=a[i];end;end;
for i:=1 to n do begin
if b[i] <> 0 then
writeln ('b[',i,']=',b[i]);
end;readln;end.