Задача о стеках Опции

[Murderer]

Даны три стека, наполненные натуральными числами и четвертый стек пустой. В четвертый стек поместить три числа, являющиеся максимальными числами в первом, втором и третьем стеке. В четвертом стеке числа расположить в порядке неубывания, а в первых трех стеках порядок расположения оставшихся чисел оставить прежним.

Т.е. я понимаю так: через пробел в программе вводится числа в первый стек и нуль завершает ввод, потом второй и соответственно третий стек. Затем программа выводит три максимальных числа из каждого стека в порядке неубывания.

Уже которую неделю парюсь и все безуспешно... Ну не могу понять я эти стеки.

[klem4]

type

  TData = Integer;

  PTListItem = ^TlistItem;

  TListItem = Record
    data: TData;
    next: PTListItem;
  end;

  TList = Object

    head: PTListItem;

    constructor Create;
    destructor  Destroy;

    procedure Push(const data: TData);

    procedure GenerateRandomList(const count, rnd: integer);

    procedure PrintList;

    function FindMax: Integer;


  end;

constructor TList.Create;
begin
  head := nil;
end;

destructor TList.Destroy;
var
  H, T: PTListItem;
begin
  H := head;
  while (H <> nil) do begin
    T := H;
    H := H^.Next;
    Dispose(T);
  end;
end;

procedure TList.Push(const data: TData);
var
  T, H: PTListItem;
begin
  New(T);
  T^.data := data;
  T^.Next := nil;

  H := Head;

  if Head = nil then Head := T else begin
    while (Head^.Next <> nil) do Head := Head^.Next;
    Head^.Next := T;
    Head := H;
  end;
end;

procedure TList.PrintList;
var
  H: PTListItem;
begin
  H := Head;
  while (Head <> nil) do begin
    writeln(Head^.Data);
    Head := Head^.Next;
  end;
  Head := H;
end;

procedure TList.GenerateRandomList(const count, rnd: Integer);
var
  i: Integer;
begin
  for i := 1 to count do Push(random(rnd));
end;

function TList.FindMax: Integer;
var
  H: PTListItem;
  max: TData;
begin
  H := Head;
  max := -MaxInt;
  while (Head <> nil) do begin
    if Head^.Data > max then max := Head^.Data;
    Head := Head^.Next;
  end;
  Head := H;
  FindMax := max;
end;

var
  L: Array [1..4] of TList;
  M: Array [1..3] of TData;

  i, j, T: Integer;
begin
  randomize;

  for i := 1 to 3 do begin
    L[i].Create;
    L[i].GenerateRandomList(Random(5) + 1, Random(10) + 1);
    writeln('List#', i);
    L[i].PrintList;
    M[i] := L[i].FindMax;
  end;

  for i := 3 downto 2 do
   for j := 1 to i - 1 do
    if M[j] <= M[j + 1] then begin
      T := M[j]; M[j] := M[j + 1]; M[j + 1] := T;
    end;

  for i := 1 to 3 do L[4].Push(M[i]);

  writeln('List#4');

  L[4].PrintList;

  for i := 1 to 4 do L[i].Destroy;
end.