program use_pzconv;
{$AppType Console}
uses fn_pzconv;
procedure x1;
var
  pzconv: integer;
  r: integer;
  zen: array[0..64] of Char;
begin
  r := -123;
  zen := #0;
  pzconv := fn_pzconv_new;
  writeln('pzconv=', pzconv);
  if pzconv > 0 then
  try
    r := fn_pzconv_han2zen(pzconv, 'Νή―Μί', zen);
  finally
    fn_pzconv_free(pzconv);
  end;
  writeln('zen=', zen);
  writeln('r=', r);
end;
var
  i: integer;
begin
  for i:=0 to 10-1 do
    x1;
end.