Помогите решить "const n=20; var x: array [1..n] of real; Упорядочить массив х по неубыванию, используя сортировку простыми вставками (сравнение в обратном направлении: от (i -1) до 1)" *В Delphi

// допускается также использовать

// две целочисленные переменные

// j и k

a = []

n = 20

for i in range(0, n):

   a.append(int(input()))

…