Задан массив, содержащий несколько нулевых элементов. Сжать его выбросив эти элементы

uses crt;
const nmax=20;
var a: array [1..nmax] of integer;
    i,j,n: byte;
begin
repeat
write('Количество элементов, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
writeln('Заполняем массив');
for i:=1 to n do
    begin
    write('a[',i,']='); readln(a[i]);
    end;
writeln('Исходный массив');
for i:=1 to n do
    write(a[i]:4);
writeln;
i:=1;
while i<=n do
     begin
     if a[i]=0 then
        begin
        for j:=i to n-1 do
            a[j]:=a[j+1];
        dec(n);
        end else inc(i);
     end;
writeln('Итоговый массив');
for i:=1 to n do
    write(a[i]:4);
readln;
end.

uses
  crt;
const
  nmax = 20;
var
  a: array [1..nmax] of integer;
  i, j, n: byte;
  t: integer;
begin
  repeat
    write('Êîëè÷åñòâî ýëåìåíòîâ, íå áîëåå ', nmax, ', n='); readln(n);
  until n in [1..nmax];
  writeln('Çàïîëíÿåì ìàññèâ');
  for i := 1 to n do
  begin
    write('a[', i, ']='); readln(a[i]);
  end;
  writeln('Èñõîäíûé ìàññèâ');
  for i := 1 to n do
    write(a[i]:4);
  writeln;
  i := 1;
  while i <= n do
  begin
    if a[i] = 0 then
    begin
      for j := i to n - 1 do
        a[j] := a[j + 1];
      dec(n);
    end else inc(i);
  end;
  writeln('Èòîãîâûé ìàññèâ');
  for i := 1 to n do
    write(a[i]:4);
  writeln;
    
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if a[i] < a[j] then
      begin
        t := a[i];
        a[i] := a[j];
        a[j] := t;
      end;
 
  writeln('Îòñîðòèðîâàííûé ìàññèâ');
  for i := 1 to n do
    write(a[i]:4);
  readln;
end.