Помогите, пожалуйста. Я сортирую массив методом Шелла, но потом, при выводе массива, ничего не происходит

Помогите,пожалуйста. Я сортирую массив методом Шелла, но потом,при выводе массива, ничего не происходит.
Сам код:
program prog;
const n=11;
var A:array [1..n] of integer;
c,d,j,i:integer;
Procedure k7;
var j:integer;
begin
for j:=1 to n do
write(A[j],' ');
end;
begin
for i:=1 to n do begin
A:=random(50);
end;

d:= n div 2;
while d>0 do begin
for i:=1 to n-d do begin
j:=i;
c:=a[j];
a[j]:=a[j+d];
a[j+d]:=c;
j:=j-d;
end;
end;
d:=d div 2;
k7
end.

  • Пытался осмыслить ваш код, он практически нечитаем, поэтому подкорректировал и сортировку Шелла выделил в отдельную процедуру, метод Хоара и Шелла вроде как классические методы. Смотрите по ссылке код:
    Источник: http://pastebin.com/pk7bHKt2
  • А что должно происходить-то? Код слишком покорежен, чтобы сказать, правильно ли реализован алгоритм, но вывод в программе написан один раз, и после вывода не предусмотрено ничего.