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

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); // А теперь все содержимое временного стека вернем в первый