Проблема с сортировкой

[Alex_12Proxy]

Задан массив А(18). Сформировать из него массив D, содержащий все отрицательные элементы массива А. Найти минимальный элемент массива D. Отсортировать массив D по убыванию. Высести на экран массивы C,D и найти минимум.
Помогите с сортировкой. Не могу найти ошибку.

program Massiv;

const
n = 18;

var
Min, i, j, k, t: integer;
a: array[1..n] of integer;
c,d: array[1..n] of integer;

begin
K := 0;
writeln('Полученный массив:');
for i := 1 to n do
begin
A[i] := random(20) - 10;
write(A[i], ' ');
end;
writeln;
writeln('Массив из отрицательных элементов D:');
k:=0;
for i := 1 to n do
if a[i] < 0 then
begin
k := k + 1;
d[k] := a[i];
write(d[k], ' ');
end;

min := D[1];
for J := 1 to k do
if min > D[j] then
min := D[j];
Writeln;
Writeln('Минимальный из нового массива = ', min);

for i:=k-1 downto 1 do
for j:=1 to k do
if c[j-1]>c[j] then
begin
t:= c[j];
c[j]:= c[j-1];
c[j-1]:= t;
end;

write('Последовательность C после сортировки по убыванию: ');
for i:=1 to k do
write(c[j],' ');
writeln;
end.

[GetMax]

Не могу найти ошибку.

На мой взгляд приведенное Вами задание - одна большая ошибка. Потому что

Высести на экран массивы C,D

И при этом нигде не указано как должен быть заполнен массив С. Таким образом Вы сортируете не существующий массив