var
  c: ^Char := nil
  p: Pointer := nil

program()
begin
  p := c;
  c := p
end.