program ideone;
var variable:integer;//глобальна
 
procedure proc;
var variable:integer; //локальна
begin
    variable := 5;
    writeln('Локальна ',variable);//5
end;
 
begin
    variable := 3;//глобальна змінна
    writeln('Глобальна ',variable);//3
    proc;//5
    writeln('Глобальна ',variable);//все одно 3, бо змінилася лише локальна в proc variable.
end.

cHJvZ3JhbSBpZGVvbmU7CnZhciB2YXJpYWJsZTppbnRlZ2VyOy8v0LPQu9C+0LHQsNC70YzQvdCwCgpwcm9jZWR1cmUgcHJvYzsKdmFyIHZhcmlhYmxlOmludGVnZXI7IC8v0LvQvtC60LDQu9GM0L3QsApiZWdpbgogICAgdmFyaWFibGUgOj0gNTsKICAgIHdyaXRlbG4oJ9Cb0L7QutCw0LvRjNC90LAgJyx2YXJpYWJsZSk7Ly81CmVuZDsKCmJlZ2luCiAgICB2YXJpYWJsZSA6PSAzOy8v0LPQu9C+0LHQsNC70YzQvdCwINC30LzRltC90L3QsAogICAgd3JpdGVsbign0JPQu9C+0LHQsNC70YzQvdCwICcsdmFyaWFibGUpOy8vMwogICAgcHJvYzsvLzUKICAgIHdyaXRlbG4oJ9CT0LvQvtCx0LDQu9GM0L3QsCAnLHZhcmlhYmxlKTsvL9Cy0YHQtSDQvtC00L3QviAzLCDQsdC+INC30LzRltC90LjQu9Cw0YHRjyDQu9C40YjQtSDQu9C+0LrQsNC70YzQvdCwINCyIHByb2MgdmFyaWFibGUuCmVuZC4=