program TextTests;

uses Rose;

var Items: ListOfItems;
    Last: Word;
    Days, Day: Integer;
    ErrorCode: Integer;
    DayStr: string;
    I: Word;
begin
    WriteLn('OMGHAI!');

    ResizeList(Items, 9);

    Last := 0;
    InitItem(Items.Elements^[Last], 'Sports Memorabilia', 10, 20);
    Inc(Last);
    InitItem(Items.Elements^[Last], 'Aged Cheese', 2, 0);
    Inc(Last);
    InitItem(Items.Elements^[Last], 'Coffee Table Book', 5, 7);
    Inc(Last);
    InitItem(Items.Elements^[Last], 'Fine Italian Silk', 0, 80);
    Inc(Last);
    InitItem(Items.Elements^[Last], 'Fine Italian Silk', -1, 80);
    Inc(Last);
    InitItem(Items.Elements^[Last], 'Backstage passes to a concert', 15, 20);
    Inc(Last);
    InitItem(Items.Elements^[Last], 'Backstage passes to a concert', 10, 49);
    Inc(Last);
    InitItem(Items.Elements^[Last], 'Backstage passes to a concert', 5, 49);
    Inc(Last);
    { this Baked item doesn't yet work properly }
    InitItem(Items.Elements^[Last], 'Baked Chocolate Cake', 3, 6);
    Inc(Last);
    Items.Length := Last;

    Days := 2;
    if ParamCount > 0 then
    begin
        Val(ParamStr(1), Days, ErrorCode);
        Inc(Days);
    end;

    for Day := 0 to Days-1 do
    begin
        Str(Day, DayStr);
        WriteLn('-------- day ' + DayStr + ' --------');
        WriteLn('name, sellIn, quality');
        for I := 0 to Items.Length-1 do
        begin
            WriteLn(StrItem(Items.Elements^[I]));
        end;
        WriteLn('');

        UpdateQuality(Items);
    end;

    ClearList(Items);
end.