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

begin
  p := c;
  c := p;
end.