Смоделировать работу с очередью

[digger_zl]

помогите плиз сделать

Смоделировать работу с очередью. выполнять действия настиканням клавиш с цифрами:
1. добавить элемент в очередь
2. исключить из очереди
3. печать содержимого очереди
4. выход из программы

[Arigato]

Очередь в виде массива или динамическая структура?

[digger_zl]

не указано, наверное динамичная структура

[Arigato]

Так и чем мы должны помочь? Я не вижу никаких вопросов.

[digger_zl]

нашел в интернете что-то, но не могу разобраться с процедурами
и в ней нет 2 пункта

program z6;
uses crt;
const n=6;
var ch:char;
i,j:word;
a:array[1..20] of integer;
Procedure write_from_queue;
Begin
If j=n then writeln('Queue is full')
Else
Begin
Inc(j);
Readln(a[j]);
End;
End;
Procedure read_from_queue;
Begin
If i>j then writeln('Queue is empty')
Else
Begin
Writeln(a[i]);
Inc(i);
End;
End;

Procedure print_quele;
Var k:word;
Begin
If i<=j then
For k:=i to j-1 do write(a[k],' ')
Else
Begin
For k:=i to n do write(a[k],' ');
For k:=1 to j-1 do write(a[k],' ');
End;
Writeln
End;
procedure print_mas;
var j:word;
begin

end;
{-----------Golovna programa--------}
Begin
clrscr;
ch:='0';i:=0; j:=0;
while ch<>'4' do
begin
writeln('1. dodatu element v chergy');
writeln('2. Prohutatu element z queue');
writeln('3. Pokazatu vmist queue');
writeln('4. Pokazatu vmist masuvy');
writeln;
write('Vvedite N menu - '); readln(ch);
case ch of
'1':write_from_queue;
'2':begin read_from_queue;; writeln('ENTER');readln(ch); end;
'3':begin print_quele;;writeln('ENTER');readl n(ch); end;
'4': exit;
end;
end;
end.