Помогите, пожалуйста решить задачку: С клавиатуры вводится последовательность целых чисел, пока не будет введено отрицательное число. Найти количество двузначных чисел.

А что именно непонятно?
Как выглядит цикл с предусловием думаю ты знаешь..
Проверить на двузначность можно, например, через if/else или помудрить с mod/div..

Айра, а как ты хочешь предложить проверить на двузначность число типа integer используя if / else без mod / div ?

Хм.. думаю это можно сделать так:

if a in [10..99] then inc(s);

Лучше

if (a > 9) and (a < 100) then

, потому как A должно быть описано не как byte -> при работе со множествами возможны глюки...

Конечно можно, я просто хотел предложить то же самое, на случай, если бы твоя идея была бы перебрать все двузначные фором и сравнивать, просто у коллеги по работе было похожее задание и он решил перебрать, хотя записать всё можно короче, как ты и сделала. AngeLL вы множества проходили ?

Конечно проходили