Напистаь программу удаления из строки чётных или нечётных чисел в Паскале

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

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.