variabel_scope.pas

program variabel_scope;
{kamus utama}
var
    A : Integer;

procedure tes();
{kamus lokal}
var
    A : Integer;
begin
    A := 7; //variabel lokal, tidak akan menghapus nilai "10" dari variabel global karena mereka berdua berbeda
end;

begin
    A := 10; // variabel glokal
    tes();
end.