PROGRAM lajittele
  ! Ohjelma lukee sisään lajiteltavan tekstin
  ! sekä tulostaa lajitellun tekstin.
  IMPLICIT NONE
  INTEGER, PARAMETER :: maxrivit = 100
  CHARACTER(LEN=80), DIMENSION(maxrivit) :: sivu
  CHARACTER(LEN=80) :: apu
  INTEGER :: rivit, pienin, i, j

  WRITE (*,*) 'Anna rivien lukumäärä:'
  READ (*,*) rivit
  IF (rivit > maxrivit) THEN
    WRITE (*,*) 'Liian monta riviä!'
    STOP
  END IF
  WRITE (*,*) 'Syötä rivit:'
  READ (*, '(A)') sivu(1:rivit)

  DO i = 1, rivit-1
    pienin = i
    DO j = i+1, rivit
      IF (sivu(j) < sivu(pienin)) pienin = j
    END DO
    apu = sivu(pienin)
    sivu(pienin) = sivu(i)
    sivu(i) = apu
  END DO
  WRITE (*,*) 'Lajiteltu taulukko:'
  WRITE (*,'(A)') sivu(1:rivit)
END PROGRAM lajittele