Удалить из отсортированного по возрастанию массива все нули

program Project1;
 
type
 
  { Claris }
 
  Claris=class
    private
      a:array of integer;
    public
      procedure Add(i:integer);
      procedure Print;
      procedure Pack;
      Destructor Destroy; override;
  end;
 
{ Claris }
 
procedure Claris.Add(i: integer);
begin
  SetLength(a,Length(a)+1);
  a[High(a)]:=i;
end;
 
procedure Claris.Print;
var i:integer;
begin
 for i:=Low(a) to High(a) do Write(a[i]:5);
 writeln;
end;
 
procedure Claris.Pack;
var j,i:integer;
begin
 j:=0;
 for i:=Low(a) to High(a) do begin
   if a[i]<>0 then begin
     a[j]:=a[i];
     inc(j);
   end;
 end;
 SetLength(a,j);
end;
 
destructor Claris.Destroy;
begin
    inherited Destroy;
    SetLength(a,0);
end;
 
begin
  With Claris.Create do begin
    Add(1);Add(2);Add(0);Add(3);Add(0);Add(4);
    Print;
    Pack;
    Print;
    Destroy;
  end;
  Readln;
end.