Συγγραφή διαδικασίας

Γράψτε διαδικασία η οποία δέχεται ως παράμετρο έναν
ακέραιο πίνακα Α[13, 13], μια ακέραια τιμή Ν (τέτοια
ώστε 1 <=Ν <= 13 και μια λογική τιμή Τ και εμφανίζει
ταξινομημένα κατά αύξουσα σειρά τα στοιχεία της:
* Ν γραμμής, αν Τ = ΑΛΗΘΗΣ
* Ν στήλης, αν Τ = ΨΕΥΔΗΣ

Λύση

      ΔΙΑΔΙΚΑΣΙΑ ΤΑΞ(Α, Ν, Τ)
      ΜΕΤΑΒΛΗΤΕΣ
             ΑΚΕΡΑΙΕΣ: Α[13, 13], Ν, Β[13], Κ, Λ, ΒΟΗΘ
             ΛΟΓΙΚΕΣ: Τ
      ΑΡΧΗ
             ΑΝ Τ = ΑΛΗΘΗΣ ΤΟΤΕ
                     ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 13
                           Β[Κ] <-- Α[Ν, Κ]
                     ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
             ΑΛΛΙΩΣ
                     ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 13

                           Β[Κ] <-- Α[Κ, Ν]

                     ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

             ΤΕΛΟΣ_ΑΝ
             ΓΙΑ Κ ΑΠΟ 2 ΜΕΧΡΙ 13
                  ΓΙΑ Λ ΑΠΟ 13 ΜΕΧΡΙ Κ ΜΕ_ΒΗΜΑ -1

                           ΑΝ Β[Λ-1] > Β[Λ] ΤΟΤΕ

                                 ΒΟΗΘ <-- Β[Λ-1]

                                 Β[Λ-1] <-- Β[Λ]

                                 Β[Λ] <-- ΒΟΗΘ

                           ΤΕΛΟΣ_ΑΝ

                  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

             ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ 

             ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 13

                   ΓΡΑΨΕ Β[Κ] 

             ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

      ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ