program main;

{$linklib c}
{$linklib zip}

uses zip;

const
   content : Pchar = 'test content'; 
var
   z : ^zip_t;

begin
   z := zip_open('/tmp/pascal.zip', 6, 'w');

   zip_entry_open(z, 'test');

   zip_entry_write(z, content, strlen(content));
   zip_entry_close(z);
   zip_close(z);
end.