В массиве K(N) переставить элементы одномерного массива в порядке возрастания. Написать программу в среде Кумир

алг N167963492
нач
  цел i, j, N, цел таб K[1:100]
  N := int(rnd(100)) + 1
  вывод "Дан массив K(", N, "):", нс
  нц для i от 1 до N
    K[i]:=int(rnd(199)) - 99
    Print(K[i])
  кц
  Sort(K, N)
  вывод нс, нс, "Отсортированный массив: ", нс
  нц для i от 1 до N
    Print(K[i])
  кц
кон

алг Sort(аргрез цел таб a[1:100], арг цел n)
нач
  цел i, j, x
  нц для i от 2 до n
    x := a[i]
    j := i
    нц пока j > 1 и a[j - 1] > x
      a[j] := a[j - 1]
      j := j - 1
      a[j] := x
    кц
  кц
кон

алг Print(цел X)
нач
  лит S
  S := цел_в_лит (X)
  нц пока длин (S) < 4
    S := " " + S
  кц
  вывод S
кон