Вот, я тут набросал:
program LR3_N;
const
A=['2','4','6','8'];
B=['1','2','3','4','5','6','7','8','9','0'];
var f:text;
v:char;
begin
assign(f,'text.txt'); reset(f);
{for i:=1 to length(f) do}
REPEAT
repeat
read(f,v);
until v in B;
If v in A then
write(v:4);
UNTIL EOF(f);
close(f);
end.
Но этот вариант выводит все четные подряд. А нужно без повторений.