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.