program foo(output);
  var
    x: integer;
  procedure bar;
    var
      x: real;
  begin
    x := x + 1;
  end;
begin
    x := x + 1;
end.