const
  max = 49;
  {NOTE: max must be one less than actual value}

type

  queuelement = integer;

  queue = record
    front,
    rear:  integer;
    status:  (full,empty);
    space: array[0..max] of queuelement;   
  end;

procedure print(var out: text; e: queuelement);
{+--- on entry - queue is defined and e exists
 |    on exit  - e is written in readable form to file 'out'
 +-----------------------------------------------------------}

begin
writeln (e:4);
end;

.