Здравствуйте, qwqwqw12!
Решение залачи, если правильно понял решение, в приложении.

Приложение:
uses crt;
const n=20;{размер массива}
var as,a:array[1..n] of integer;
i,k,m:byte;
p:longint;
begin
clrscr;
randomize;
writeln('Массив AS:');
k:=0;
for i:=n to n+19 do{индексация с 20}
begin
as[i]:=random(10)-4;
if as[i]=0 then k:=k+1;{считаем ноли}
write(as[i],' ');
end;
writeln;
writeln('В массиве AS количество нулей=',k);
m:=0;
for i:=n to n+19 do
if as[i]<>0 then{если не ноль}
begin
m:=m+1;{считаем}
a[m]:=as[i];{в новый массив}
end;
writeln('Массив А:');
for i:=1 to m do
write(a[i],' ');
readln
end.