Найти ошибку в выводе отсортированного массива!Паскаль

[Анастасия1902]

Подскажите почему выводит только один элемент,а не весь отсортированный массив!Где ошибка?
procedure InsertSort;
var
i,j,buf:integer;
begin
for i:=2 to N do
begin
buf:=d[i];
j:=i-1;
while (j>0) and ( buf<d[i]) do
begin
d[j+1]:=d[j];
j:=j-1;
end;
d[j+1]:=buf;
end;end;

InsertSort;
writeln('otsortirovannii:');
for i:=1 to n do
write(d[i],'');
readln;