Как узнать сколько раз будет выполнен описанный цикл?for i:=2 to 1 dot:=random (100);​

Нисколько, 0

В i уже лежит 2, чтобы цикл пошел к 1, надо down to, а не do, как в этом коде