Исходный ЦД-код очевидным образом преобразуется в:
## Код:
```
i := 0; j := 1; 
WHILE (j < len)  DO
   IF  (pass[j] # pass[i])  THEN   INC(stat[j - i]); i := j  END;
   INC(j)
END;
IF i < len THEN  INC(stat[j - i]) END;
```

Не знаю правильно ли ';'  расставлены , но это не беда