> -- Илья Ермаков писал(а):
> Возможно, Вы считаете, что в ptroffs лежит не смещение в байтах, а что-то другое.
Ну да. Я считал все в машинных словах.

тогда так
## Код:
```
i:=0;
WHILE 4*i=p[i] DO INC(i) END;
i := 4*i;
IF i >= size THEN i := -1 END;
```
