Выбросить из данного массива элементы, равные нулю

program z;
uses crt;
var i,m,n:byte;
a,b:array [1..100] of integer;
begin
     clrscr;
     write('Введите кол-во элементов массива А[N]: ');
     readln(n);
     writeln('Ввод элементов массива');
     m:=0;
     for i:=1 to n do
         begin
              write('a[',i,']=');
              readln(a[i]);
              if a[i]<>0
                 then
                     begin
                          m:=m+1;
                          b[m]:=a[i];
                     end;
         end;
     write('Массив A[N]: ');
     for i:=1 to n do
         write(a[i],' ');
     writeln;
     write('Массив B[M]: ');
     for i:=1 to m do
         write(b[i],' ');
     writeln;
     readln;
end.

const n=20;
var a: array [1..n] of integer;
    i,j:byte;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=-2+random(5);
  write(a[i]:3);
 end;
writeln;
j:=0;   //счётчик ненулевых
for i:=1 to n do //проходим по массиву
if a[i]<>0 then  //пропускаем ноли
 begin
  inc(j);
  if j<i then a[j]:=a[i]; //если нужно, на их место пишем следующие
 end;
if j=0 then write('Все элементы удалены')
else if j=n then write('В массиве нет нолей')
else
 begin
  writeln('Удаление нолей');
  for i:=1 to j do write(a[i]:3);
 end;
end.