menu boiz

program MenuSelection;
uses TerminalUserinput;

var
    selection : Integer;
begin
    while True do:
    begin
        ReadIntegerRange(1, 4, 'Select an option 1-4');
        case selection of:
            1 : DoSomething();
            2 : DoSomethingElse();
            3 : DoAnotherThing();
            4 : break;
    end;
end.