VARIABLE:x=0;

n:0;

if BARPOS=5 THEN
BEGIN
x:=5;
n:=6;
END

if BARPOS=8 THEN
BEGIN
x:=8;
n:=9;
END

x1:x;