Стеки и очереди

[Елена93]

Дан массив. Создать две очереди первая должна содержать все нечетные, а вторая - все четные числа из исходного набора. Ну эту задачку нужно создать в паскале как очередь и как стек. Как сделать то? Помогите? Ну я вот кое что напечатала, но где-то ошиблась)))

type
x=^spisok;
spisok=record
inf:integer;
next:x;
end;
var begSp, endSp, begSp1, begSp2, endSp1, p:x;
stroka:string[10];
i:byte;
procedure Sozd(c:integer; var begSp, endSp:x);
var p:x;
begin begSp:=nil; endSp:=nil;
new(p);
p^.inf:=c;
p^.next:=nil;
BegSp:=p; EndSp:=p;
end;
begin
new(p);
p^.inf:=c;
p^.next:=nil;
endSp^.next:=p;
endSp:=p;
end;
procedure Prosm(BegSp, EndSp:x);
var p:uk;
begin p:=BegSp;
while P<>nil do begin
writeln(p^.inf);
p:=p^.next;
end;
end;
begin stroka:=' ';
write(x,begSp1,endSp1,begSp2,endSp2);
for 2 to 5 do begin if x mod 2 = 0 then writeln(begSp1, endSp1) else
writeln(begSp2, endSp2);
append(stroka[i], endsp1,endsp2);
prosm(begSp1, endSp1);
prosm(BegSp2, EndSp2);
end.

P.S. Без использования Random. Заранее спасибо



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

имхо, для стека допустимы только две операции: push (поместить элемент на верхушку стека) и pop (извлечь элемент с верхушки стека), ну, плюс, функция проверки - пуст ли стек. принцип организации: LIFO.

а очередь это FIFO.

а насколько я вижу, у вас и стек и очередь организуются абсолютно одинаково.
Или это я неправильно смотрю?