Отсортировать массив по не убыванию методом сортировки Шелла(Pascal, и элемениы массива нужно ввести вручную) хелп

Ну что то типо этого 
var j,i,k,n:integer;    m:array[1..1000] of integer;begin  read(n,k);  //Ввод элементов массива  for i:=1 to n do    read(m[i]);    //Сортировка по возрастанию  for i:=1 to k do    for j:=i to k do            if m[j]<m[i] then swap(m[i],m[j]);    //Сортировка по убыванию  for i:=k+1 to n do    for j:=i to n do            if m[j]>m[i] then swap(m[i],m[j]);    //Вывод элементов массива  for i:=1 to n do  print(m[i]);end.