24            Count: Longword;

    24            Count: Longword;

    25            points: array[0..8192] of record

    25            points: array[0..8192] of record

    26                                      xl, xr, y, dir: LongInt;

    26                                      xl, xr, y, dir: LongInt;

    27                                      end

    27                                      end

    28            end;

    28            end;

    29 

    32 

    30 procedure Push(_xl, _xr, _y, _dir: LongInt);

    33 procedure Push(_xl, _xr, _y, _dir: LongInt);

    31 begin

    34 begin

    32     TryDo(Stack.Count <= 8192, 'FillLand: stack overflow', true);

    35     TryDo(Stack.Count <= 8192, 'FillLand: stack overflow', true);

    33     _y:= _y + _dir;

    36     _y:= _y + _dir;