не хочет присваивать(оператор":=")

[tolikprankster]

Вот решил освоить Паскаль. Собственно задача.
В массив а вводится ранддомные числа в диапозоне(-700;700)
Потом из отрицательных элементов создается массив, который сортируется по убыванию. и выводятся два массива и мин. элемент второго. Вроде всё понятно, но строчка "d[j]:=a[i];" не работает.
Может кто-нибудь подсказать что не так?

Program super;
uses crt;
var i,j,k,f:integer;
a:array[1..25] of integer;
d:array[1..25] of integer;
begin
clrscr;
randomize;
for i:=1 to 25 do
    begin
         a[i]:=random(1401)-700;
         write(a[i],'  ');
    end;
j:=0;
for i:=1 to 25 do
    begin
         if a[i]<0 then
         begin
         j:=j+1;
         d[j]:=a[i];     {<-вся проблема здесь, не хочет присваивать}
         end;
     end;
for i:=1 to j      do
    for k:=1 to j     do
        if d[k]<d[k+1] then
           begin
           f:=d[k];
           d[k]:=d[k+1];
           d[k+1]:=d[k];
           end;
writeln;
writeln('mass A    I Mass D') ;
for i:=1 to 25 do
    begin
        write(a[i]:9,'   ');
        if i<=j then  write(d[i]);
        writeln;
    end;
    writeln('Dmin=',d[j])  ;
readln;
end.

[Stilet]

А ты ставил туда точку прерывания? Попадает туда вообще программа?.

[tolikprankster]

А всё сори тупанул, там всё нормально, проблема была в другом месте. Вот правильная версия если кого интересует:

Program super;
uses crt;
var i,j,k,f:integer;
a:array[1..18] of integer;
d:array[1..18] of integer;
begin
clrscr;
randomize;
for i:=1 to 18 do
    begin
         a[i]:=random(1400)-700;
         write(a[i],'  ');
    end;
j:=0; f:=0;
for i:=1 to 18 do
    begin
         if a[i]<0 then
         begin
         j:=j+1;
         d[j]:=a[i];
         writeln(d[j]);
         end;
     end;
for i:=1 to j      do
    for k:=2 to j-1     do
        if d[k]>d[k-1] then
           begin
           f:=d[k];
           d[k]:=d[k+1];
           d[k+1]:=d[k];
           end;
writeln;
writeln('mass A    I Mass D') ;
for i:=1 to 18 do
    begin
        write(a[i]:9,'   ');
        if i<=j then  write(d[i]);
        writeln;
    end;
    writeln('Dmin=',d[1])  ;
readln;
end.

[eoln]

Точно? А может

for i:=1 to j      do
    for k:=1 to j-1     do
        if d[k]<d[k+1] then
           begin
           f:=d[k];
           d[k]:=d[k+1];
           d[k+1]:=f;
           end;

[tolikprankster]

Сообщение от eoln

Точно? А может

for i:=1 to j      do
    for k:=1 to j-1     do
        if d[k]<d[k+1] then
           begin
           f:=d[k];
           d[k]:=d[k+1];
           d[k+1]:=f;
           end;

ой!