Задача на стеки и очереди. Опции

[Анисия]

Добрый день. Помогите разобраться с очередями и стеками. Как организовать очередь из n целых чисел. Пока взяла 5 чисел, это получается что надо сформировать массив. Посмотрите пожалуйста правильно сделала?

program Lab_4;
const  max=5;
type Evt= integer;
var
elem:array [1..max] of Evt;
spos, rpos:integer;

end.

[Анисия]

Выходит за пределы страницы f:=f+1; на этой строке

[Lapp]

Выходит за пределы страницы f:=f+1; на этой строке

И это все, что ты можешь сказать?.. Это определила не ты, а железная машина. А ты должна из этого сделать выводы.

Но сначала поправка: не страницы, а массива. И не на этой строке, а на следующей.
Ты f чем инициалицировала? 4? Так. А потом к нему единицу прибавила? Прибавила. Что вышло? Правильно, 5. А массив у тебя размерности какой? 4. Так чего ты хочешь?..

Тебе надо сделать не просто приращение f, а циклическое приращение по модулю 5. И массив тебе, думаю, надо нумерновать с нуля, а не с единицы. Тогда приращение f сделаешь так:

f:=(f+1) mod 5;

Понятно?
Еще ты с m запуталась. Пусть m будет длина очереди, а нумерация - от 0 до m-1=m1.
Вот, смотри, я тебе все это сделал. И, ПОЖАЛУЙСТА, обрати внимание на формат.. Ну нельзя же программы писать как записки соседу по парте!..

program ocher;
const
  m=5;
  m1=m-1;

type
  tEl=integer;

var
  line: array [0..m1] of tEl;
  a: tEl;
  f,r, n:integer;

function vvod( e:tEl): boolean;
begin
  if n<m then begin
    f:=(f+1) mod m;
    line[f]:=e;
    inc(n);
    vvod:=true
  end
  else vvod:=false
end;

function vivod( var e:tEl): boolean;
begin
  if n>0 then begin
  e:=line[r];
  r:=r+1;
  dec(n);
  vivod:=true;
  end
  else vivod:=false;
end;

procedure init;
begin
  r:=0; f:=m1; n:=0;
end;

begin
  init;
  writeln(vvod(2));
  writeln(vvod(3));
  writeln(vvod(4));
  writeln(vvod(5));
  writeln(vvod(6));

  while vivod(a) do
  writeln('vvod ', a);
  readln;
end.

И последнее: зачем ты стала переделывать мой код? Только сейчас заметил, что он практически идентичен)). Для тренировки? Ок, похвально, что не копи-пейст)).
Спрашивай еще, что неясно.