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

var

  a : array [1..100] of integer; // Вместо 100 - максимальное количество чисел

  i, n : integer;

begin

  //Если колчисетво чисел вводится, то этот код
read (n);

for i := 1 to n do

  read (a[i]);

//Если же по уловию задачи задана только строка чисел, то использовать следующий  

//код

while not eoln (input) do

begin

  n := n + 1;

  read (a[n]);

end;

//Далее для обоих вариантов.

for i := 1 to n do

  if a[i] mod 2 = 0 then write (a[i], ' '); //Выведет четные, для нечетных заменить = 0 на = 1 

end.