А вот так:
## Код:
```
In.Open;
  (* Считаем количество элементов в выделенном фрагменте *) 
   n := -1;
   REPEAT
      In.Int(i);  INC(n); 
   UNTIL ~In.Done  ; 
  (* создаем массив на посчитанное количество элементов *) 
  IF  n>0  THEN NEW(a, n); 
  (* Повторно считываем фрагмент - теперь уже запоминая в массиве *) 
  In.Open; 
  FOR i := 0 TO LEN(a)-1 DO In.Int(a[i]); END;
      ELSE   StdLog.String("Данные где?")
END;
```
