Ошибка ввода/вывода 102

{
  Структуры данных на основе статического массива:
  - стек
  - очередь
  - список
}
const
  MaxIndex = 999;
 
type
  T = integer; // Синоним типа элементов структур данных.
 
type
  ArrayStack = class
  private
    content: array [0..MaxIndex] of T;
    _count: integer;
    
  public
    property Count: integer read _count;
    
    constructor Create;
    begin
      _count := 0;
    end;
    
    procedure Push(value: T);
    begin
      if _count = MaxIndex + 1 then
        raise EInvalidOp.Create('Стек уже заполнен');
      Inc(_count);
      content[_count - 1] := value;
    end;
    
    function Peek: T;
    begin
      if _count = 0 then
        raise EInvalidOp.Create('Стек пуст');
      Result := content[_count - 1];
    end;
    
    function Pop: T;
    begin
      Result := Peek();
      Dec(_count);
    end;
    
    procedure Print;
    var
      i: integer;
 
    begin
      Write('ArrayStack: [');
      for i := 0 to _count - 1 do
      begin
        Write(content[i]);
        if i < _count - 1 then
          Write(', ');
      end;
      Write(']');
    end;
    
    procedure Println;
    begin
      Print();
      Writeln();
    end;
  end;
 
type
  ArrayQueue = class
  private
    content: array [0..MaxIndex] of T;
    _count: integer;
    _head, _tail: integer;
 
    function NextValueHelper(value: integer): integer;
    begin
      Result := (value + 1) mod (MaxIndex + 1);
    end;
 
    procedure NextValue(var value: integer);
    begin
       value := NextValueHelper(value);
    end;
    
  public
    property Count: integer read _count;
 
    constructor Create;
    begin
      _count := 0;
      _head := 0;
      _tail := 0;
    end;
    
    procedure Enqueue(value: T);
    begin
      if _count = MaxIndex + 1 then
        raise EInvalidOp.Create('Очередь уже заполнена');
      Inc(_count);
      content[_head] := value;
      NextValue(_head);
    end;
 
    function Peek: T;
    begin
      if _count = 0 then
        raise EInvalidOp.Create('Очередь пуста');
      Result := content[_tail];
    end;
 
    function Dequeue: T;
    begin
      Result := Peek();
      NextValue(_tail);
      Dec(_count);
    end;
 
    procedure Print;
    var
      i: integer;
 
    begin
      i := _tail;
      Write('ArrayQueue: [');
      while i <> _head do
      begin
        Write(content[i]);
        if NextValueHelper(i) <> _head then
          Write(', ');
        NextValue(i);
      end;
      Write(']');
    end;
 
    procedure Println;
    begin
      Print();
      Writeln();
    end;
  end;
 
var
  S: ArrayStack;
  Q: ArrayQueue;
  i: integer;
  
begin
  S := ArrayStack.Create();
  for i := 0 to 9 do
    S.Push(i);
  S.Println();
  
  Q := ArrayQueue.Create();
  for i := 0 to 9 do
    Q.Enqueue(i);
  Q.Println();
end.

procedure Println;
    begin
      write('111');
      writeln;
     // Print();//если раскомметировать будет ошибка
      writeln;
      write('222');
    end;

begin
  write(ord(true));
end.