confront:

if (!ready && (length == 0)) {
  output = ~ output;
  pointer++;
}

with

if not ready and (length = 0) begin
  output := not output;
  pointer := pointer + 1;
end;

Try to get rid of prejudice. Pretend you have never seen any of these languages.

JW