[Decoding]

Попробуй поменять местами строки
1)
step:=step1;
Vr:=Vr+step;

2)
step:=step2;
Vr:=Vr+step;

3)
step:=step3;
Vr:=Vr+step;

И убери строку Vr:=Vr;