Переливание нечётных элементов из двух стеков в стек - PascalABC.NET

Формулировка задачи:

У нас есть два стека, получаемых из файлов (Stack1.bat и Stack2.bat), нужно перелить нечётные элементы (не по их позиции, а именно нечётные: 1,3,5 и т.д.) из 1 и 2 стека в 3. При этом оставив чётные в 1 и 2 стеке. У меня получилось реализовать только полное переливание, а как сделать переливание нечётных не знаю((

type
  EXST = ^ST;
  ST = record
    Data: String[50];
    Next: EXST;
  End;
 
var
  Stack1: EXST;
  Stack2: EXST;
  Stack3: EXST;
  StackD: EXST;
  i: integer;
  f1,f2: text;
  Stroka: string;
 
{Чтение стека}  
procedure WriteStack(var u: EXST; Element: String[50]);
var
  x: EXST;
begin
  new(x); 
  x^.Data := Element; 
  x^.Next := u; 
  u := x; 
end;
 
{Вывод стека на экран}
procedure StackPrint( u: EXST);
begin
  while u <> nil do
  begin
    write(u^.Data);
    u := u^.Next;
  end;
end;
 
{Добавить элемент на вершину стека.}
 procedure StackPush(var aPStack, aPElem : EXST);
begin
 if aPElem = nil then Exit;
  aPElem^.Next := aPStack;
  aPStack := aPElem
end; 
 
{Изъятие элемента с вершины стека.}
function StackPop(var aPStack, aPElem : EXST) : Boolean;
begin
  StackPop := False;
  if aPStack = nil then {begin writeln('****');}Exit;//end;
  //writeln('@@@@@');
  aPElem := aPStack;
  aPStack := aPElem^.Next;
  StackPop := True;
end;
 
{Основная программа}
BEGIN
//begin
writeln('Элементы первого стека:');
  Stack1 := nil; 
  Assign(f1, 'C:\Stack 1.bat');
  Reset(f1);
  while not Eof(f1) do
  begin
    readln(f1, Stroka);
    for i := Length(Stroka) downto 1 do
      WriteStack(Stack1, Stroka[i]);
    //StackPrint(Stack1);
   // writeln;
  end;
  StackPrint(Stack1);
  writeln;
  close(f1);
 // end;
 {while StackPop(Stack1, Stack3) do StackPush(Stack2, Stack3);} 
//begin
  writeln('Элементы второго стека:');
  Stack2 := nil;
  Assign(f2, 'С:\Stack 2.bat');
  Reset(f2);
  while not Eof(f2) do
  begin
    readln(f2, Stroka);
    for i := Length(Stroka) downto 1 do
      WriteStack(Stack2, Stroka[i]);
    end;
    StackPrint(Stack2);
     writeln;
  close(f2);
//end;
 
//if (i mod 2)>0 then
while StackPop(Stack1, StackD) do StackPush(Stack3, StackD);
    Writeln('Переливание нечётных элементов из певого стека - в третий.');
    Write('Первый стек:');
    StackPrint(Stack1);
    writeln;
    Write('Третий стек:');
    StackPrint(Stack3);
    writeln;

//if (i mod 2)>0 then    
    while StackPop(Stack2, StackD) do StackPush(Stack3, StackD); 
    Writeln('Переливание из второго стека - в третий.');
    Write('Второй стек:');
    StackPrint(Stack2);
    writeln;
    Write('Третий стек:');
    StackPrint(Stack3);
    writeln;
 
END.

Решение задачи: «Переливание нечётных элементов из двух стеков в стек»

Листинг программы

var
  T: exst := nil;
{Основная программа}
// ...
 
  while StackPop(Stack1, StackD) do
    if Odd(StrToInt(StackD^.Data)) then StackPush(Stack3, StackD) // Нечетный элемент? Пишем его сразу в stack3
    else StackPush(T, StackD); // Четный? Временно сохраняем в другом стеке
  while StackPop(T, StackD) do StackPush(Stack1, StackD); // А теперь все содержимое временного стека вернем в первый

Объяснение кода листинга программы

В данном коде выполняется переливание нечётных элементов из двух стеков в стек. В первых двух строках объявляются три указателя:

T — указатель на стек, в который будут помещаться все четные элементы.
Stack1 — указатель на первый стек.
Stack3 — указатель на третий стек. В следующей строке описана операция, которая будет выполняться в цикле:
StackPop(Stack1, StackD) — из первого стека (Stack1) выталкивается элемент (StackD).
if Odd(StrToInt(StackD^.Data)) — проверяется, является ли вытолкнутый элемент нечётным числом.
Если условие выполняется, то выполняется операция StackPush(Stack3, StackD), т.е. этот элемент помещается в третий стек (Stack3).
Если условие не выполняется, то выполняется операция StackPush(T, StackD), т.е. этот элемент помещается в указатель T, который хранит второй стек. Далее в цикле выполняются операции:
while StackPop(Stack1, StackD) — из первого стека (Stack1) выталкивается элемент (StackD).
StackPush(Stack1, StackD) — этот элемент помещается обратно в первый стек (Stack1). Таким образом, в результате выполнения данного кода в первом стеке (Stack1) останутся только нечётные элементы, а во втором стеке (Stack3) — только чётные.