Метод Шелла - Pascal ABC

[Korban]

Нужно переделать под сортировку методом Шелла:

const N = 10;
Var
  A: array[1..N] of integer;
  i, j, t, k: integer;
begin
writeln('Введите k :');
readln(k);
  randomize;
  writeln('Исходный :');
  for i := 1 to N do
  begin
    a[i] := -100 + random(201);
    write(a[i]:6);
  end;
  writeln;
 for i:=1 to k do
    for j:=1 to k-i do
        if a[j]>a[j+1] then begin
            t:= a[j];
            a[j]:= a[j+1];
            a[j+1]:= t;
        end;
        for i:=k+1 to n do
        for j:=i to n do
        if a[j]>a[i] then begin
            t:= a[j];
            a[j]:= a[i];
            a[i]:= t;
            end;
writeln('Отсортированный массив :');
for i:=1 to n do
    write(a[i]:4);
writeln;
end.

Задание: cоздать массив, в котором n элементов. Первые k элементов упорядочить по возрастанию, последние по убыванию.