Подскажите пожалуйста есть одна задача если бы можно было использовать массив то давно бы ее решил.

Ввести восемь чисел и вычислить количество нулей, отрицательных и положительных чисел отдельно

код не нужен просто натолкните на мысль

Заранее благодарен

count := 0;
positive := 0;
negative := 0;
null := 0;

repeat
  readln(X);
  if X > 0 then inc(positive)
   else
  if X < 0 then inc(negative)
   else
  inc(null);
 inc(count);
until count = 8;

тоесть этот код будет перебирать все числа введеныые с клавиаткры или сгенеренные случайно?

с клавиатуры. видишь же readln

Этот код должен повторяться для еаждого введеноого числа х1,х2, ...х8?
или он сразу действует для всех введенных чисел. Тоесть яя не могу рзобраться как сделать
так, чтобы программа перебирала все введенные числа.

А запустить ты его не пробовал? Этот код просит тебя ввести 8 чисел, и ДЛЯ КАЖДОГО из них сразу после ввода делает необходимые действия... То есть, после последней строки у тебя positive/negative/null хранят количество положительных/отрицательных/нулевых значений соответственно...

А тебе нечего перебирать, массива-то нету... Можно только обрабатывать "on the fly", как говорится...