Из нечетных элементов двух стеков с упорядоченными элементами создать новый стек с упорядоченными элементам

program gold;
 
uses
  crt;
 
type
  Tptr = ^Telem;{указательный тип данных на элемент Стека}
  
  Telem = record  {запись, состоящая из двух полей, описывающая элемент Стека}
    inf: integer;  {информационное поле - хранит символы}
    link: Tptr;    {указательное поле - ссылка на следующий элемент Стека}
  end;
  Tptr2 = ^Telem2;
  Telem2 = record  {запись, состоящая из двух полей, описывающая элемент Стека}
    inf: integer;  {информационное поле - хранит символы}
    link: Tptr2;    {указательное поле - ссылка на следующий элемент Стека}
  end;
  Tptr3 = ^Telem3;
  Telem3 = record  {запись, состоящая из двух полей, описывающая элемент Стека}
    inf: integer;  {информационное поле - хранит символы}
    link: Tptr3;    {указательное поле - ссылка на следующий элемент Стека}
  end;
 
var
  top: Tptr;
  top2: Tptr2;
  top3: Tptr3;  {глобальная переменная - указатель на вершину Стека}
  m: byte;
  lg: boolean;
  {Процедура: добавление элемента в вершину Стека}
{---------------------------------------------------------------------------}
procedure push;
var
  p: Tptr;{вспомогательный указатель, ссылающийся на добавляемый элемент}
i:integer;
begin
  new(p); {выделение памяти под добавляемый элемент}
  
  p^.link := nil; {"привязали" линковочное поле к NIL, чтобы не было висячей ссылки}
  
  write('Введите значение добавляемого элемента: '); {ввод значения информационного поля элемента с клавиатуры}
  
  readln(i); {указатель добавляемого элемента поставили на первый элемент Стека}
  if i mod 2 = 0 then
  begin
    p^.inf := i;
  end;
  p^.link := top; {указатель на вершину Стека top поставили на только что добавленный элемент.
  В итоге, Стек находится в согласованном состоянии после добавления элемента}
  top := p;
end;
{Процедура: печать элементов Стека от вершины в конец}
{---------------------------------------------------------------------------}
procedure printFromTop;
var
  p: Tptr;{вспомогательный указатель, ссылающийся на текущий элемент Стека}
 
begin
  p := top; {устанавливаем указатель р на первый элемент Стека}
  
  {выпечатываем на экран диалог}
  write('Элементы стека имеют вид: '); {устанавливаем указатель р на первый элемент Стека}
  
  {до тех пор, пока указатель р не выйдет за последний элемент Стека}
  while(p <> nil) do
  begin
    write(p^.inf, ' '); {печатаем на экран пользователя информационное поле текущего элемента Стека}
    
    p := p^.link; {переход на следующий элемент Стека}
  end;
end;
 
procedure check(s: integer);
begin
  lg := false;
  case m of
    65..90, 97..122: lg := true;
  end; end;
 
procedure sozdanie1;
var
  p: Tptr;
  p2: Tptr2;
  p3: Tptr3;
  integer: integer;
begin
  p := top;
  while(p <> nil) do
  begin
    m := ord(p^.inf);
    check(m);
    if lg = true then
    begin
      new(p2); {выделение памяти под добавляемый элемент}
      
      p2^.link := nil; {"привязали" линковочное поле к NIL, чтобы не было висячей ссылки}
      integer := p^.inf;
      p2^.inf := integer;
      
      p2^.link := top2; {указатель на вершину Стека top поставили на только что добавленный элемент.
      В итоге, Стек находится в согласованном состоянии после добавления элемента}
      top2 := p2;
    end
        else
    begin
      new(p3); {выделение памяти под добавляемый элемент}
      
      p3^.link := nil; {"привязали" линковочное поле к NIL, чтобы не было висячей ссылки}
      integer := p^.inf;
      p3^.inf := integer;
      
      p3^.link := top3; {указатель на вершину Стека top поставили на только что добавленный элемент.
      В итоге, Стек находится в согласованном состоянии после добавления элемента}
      top3 := p3;
    end;
    
    p := p^.link; {переход на следующий элемент Стека}
  end;
end;
 
procedure printFromTop2;
var
  p: Tptr2;{вспомогательный указатель, ссылающийся на текущий элемент Стека}
 
begin
  p := top2; {устанавливаем указатель р на первый элемент Стека}
  
  {выпечатываем на экран диалог}
  write('Элементы стека имеют вид: '); {устанавливаем указатель р на первый элемент Стека}
  
  {до тех пор, пока указатель р не выйдет за последний элемент Стека}
  while(p <> nil) do
  begin
    write(p^.inf, ' '); {печатаем на экран пользователя информационное поле текущего элемента Стека}
    
    p := p^.link; {переход на следующий элемент Стека}
  end;
end;
 
procedure printFromTop3;
var
  p: Tptr3;{вспомогательный указатель, ссылающийся на текущий элемент Стека}
 
begin
  p := top3; {устанавливаем указатель р на первый элемент Стека}
  
  {выпечатываем на экран диалог}
  write('Элементы стека имеют вид: '); {устанавливаем указатель р на первый элемент Стека}
  
  {до тех пор, пока указатель р не выйдет за последний элемент Стека}
  while(p <> nil) do
  begin
    write(p^.inf, ' '); {печатаем на экран пользователя информационное поле текущего элемента Стека}
    
    p := p^.link; {переход на следующий элемент Стека}
  end;
end;
////////////////////////////////////////////////////////////////////////
var
  i: integer;
 
begin
  i := 0;
  repeat
    push; {вставка элемента в вершину Стека}
    
    
    
    i := i + 1;
  until (i = 10);
  writeln; {оповещение пользователя об успешном завершении операции}
  writeln('Добавление новых элементов успешно проведено!');
  if(top = nil) then {если в Стеке нет элементов, то вызываем диалог для пользователя}
    write('Печать элементов невозможна, так как Стек пуст!')
  else
    printFromTop; {печать элементов Стека от вершины вниз}
  sozdanie1;
  writeln;
  writeln('Первый Стэк');
  printFromTop2;
  writeln;
  writeln('Второй Стэк ');
  printFromTop3;
  
end.