Паскаль, сортировка массива

[Solder]

Здравствуйте, помогите пожалуйста решить задачу:11) Дан массив с (n) . Переписать в мас¬сив х (n) все ненулевые элементы массива Затем упорядочить методом «выбора и перестановки» по возрастанию но¬вый массив.

Вот моё решение, но оно не пашет:program o;const

Код: [Выделить]

n=10;
var
c,x:array[1..n] of Integer;
i,l,j,min,n_min,t,buf:integer;
begin
randomize;
for i:=1 to n do
begin
c[i]:=random(10);
write(c[i]);
end;
for i:=1 to n do
begin
for j:=1 to n do
if c[i]<>0 then
x[j]:=c[i];
writeln(x[j]);
end;
min:=100;
for j:=1 to n do
begin
if x[j]<min then
begin
min:=x[j];
n_min:=j;
end;
for l:=1 to n do
t:=x[n_min];
x[n_min]:=x[l];
x[l]:=t;

writeln('x=',x[l]);
end;
end. Заранее спасибо)

[Данила]

а в чем именно ошибка, не компилится,результат не тот? подробнее изложите.

[Данила]

Код: [Выделить]

var
c,x:array[1..n] of Integer;
i,l,j,min,n_min,t,buf:integer;
begin
  randomize;
  for i:=1 to n do begin
    c[i]:=random(10);
    write(c[i]);
  end;
  j:=1;
  for i:=1 to n do begin
    if c[i]<>0 then  begin
       x[j]:=c[i];
       writeln(x[j]);
       j:=j+1;
    end;
  end;
  min:=10;
  for j:=1 to n do begin
    if x[j]<min then begin
      min:=x[j];
      n_min:=j;
  end;
  for l:=1 to n do
    t:=x[n_min];
  x[n_min]:=x[l];
  x[l]:=t;
  writeln('x=',x[l]);
  end;
end.
исправил способ заполнения нового массива. с сортировкой вообще какая то адская садомия. пузырьком не пойдет,проще же намного?

[Solder]

Вах, всё работает, спасибо))