Работа со стеками в Паскаль

[Раиса17]

Доброго времени суток.
Работаю в консольной вкладке в Делфи 7. Не знаю, важно это или нет.
Необходимо прописать удаление повторяющихся элементов в стеке. Он заполняется рандомно, в диапазоне от 1 до 5 (если ввести большую размерность, то значения точно повторятся).
Есть процедура pop , но ее нужно как-то вызвать)
Помогите пожалуйста
Вот задание полностью:
Дан стек, заполненный случайными целыми числами. Удалить из стека повторяющиеся элементы, оставив по одному.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 a : array[1..100] of integer;
 size, x,n, i : integer;

procedure push(c : integer);   //  (добавление на вершину стека) считывается с клавиатуры
 begin
  size := size + 1;
  a[size] := c;
 end;

 procedure pop;               // Удаление верхнего элемента стека
 begin
  size := size - 1;
 end;

 function top : integer;     // Получение значения верхнего элемента стека
 begin
  top := a[size];
 end;

begin
  { TODO -oUser -cConsole Main : Insert code here }

size := 0;
   writeln('vvedit razmer massiva');
   readln(n);
   writeln('nash massiv');
   // заполнить рандомно, с возможным повторением
  for i := 1 to n do begin
     x:=random(5);
    Push(x);
    write(x,' ');
  end;
  Writeln;
  writeln(Top());

 {while size > 0 do
    Pop();     }

 writeln('size'); // просто выводит размер массива) Это не особо нужно
 writeln(size);

   readln;
end.

[Alex11223]

Так а вопрос-то о чем?

[Раиса17]

Сообщение от Alex11223

Так а вопрос-то о чем?

Как удалить из стека повторяющиеся элементы, оставив по одному.

[Раиса17]

С помощью функции pop. Не знаю, как прописать условие проверки

[jillitil]

pop логичней быть функцией, а не процедурой.

 function pop: Integer;               // Удаление верхнего элемента стека
 begin
  if size = 0 then exit;
  pop:= a[size];
  size := size - 1;
 end;

2. Только ПОП, ПУШ и одного СТЕКа не достаточно, либо добавляйте стеки, минимум три, либо должны быть ещё функции доступа к любому элементу стека.

[Раиса17]

Сообщение от jillitil

2. Только ПОП, ПУШ и одного СТЕКа не достаточно, либо добавляйте стеки, минимум три, либо должны быть ещё функции доступа к любому элементу стека.

Да, спасибо) Было прописано для одного стека. Желательно бы все просто заново переписать))

[evg_m]

Да, спасибо) Было прописано для одного стека. Желательно бы все просто заново переписать))

можно доп. стеки "спрятать" в рекурсию. примерно так
http://www.programmersforum.ru/showt...97#post1538097