パッと思いつく限りだと、イスを配列変数（DIM CHAIR[6]とか）として宣言して、それぞれに人を表す番号を格納、FORとかを駆使して順次中身を入れ替えるみたいな感じでしょうか