Y a des gens chaud en langage ADA ou pas ?

Je vais péter mon crâne avec ce truc, j'ai crée une procédure permettant d'afficher la grille d'un morpion

    procedure affichage_st (sous_tab : T_soustab) is
        type T_soustab is array (T_ligne'Range, T_ligne'Range) of T_croixrond;
        type T_croixrond is (X, O, V);
        type T_ligne is range 1 .. 3;
    begin
        for I in T_ligne loop
            for J in T_ligne loop
                if sous_tab (I, J) = X then
                    Put (X);
                elsif sous_tab (I, J) = O then
                    Put (O);
                elsif sous_tab (I, J) = V then
                        Put ("_");
                end if;
                if J /= 3 then
                    Put (" | ");
                end if;
            end loop;
            Put_Line ("");
            if I /= 3 then
                Put_Line ("---------");
            end if;
        end loop;
    end affichage_st;

Mon but est d'afficher plusieurs sous-tab à la suite dans le terminal (je veux afficher 3 grilles à la suite, puis revenir à la ligne, en afficher 3 autres puis revenir à la ligne...) Y a 9 grilles en tout. Des idées ?

J'aimerai bien votre aide les clés svp, j'en ai marre de ce langage