var i: integer;

procedure p;
begin
  var i: integer;
end;