помогите с матрицей

[Victory1]

Задача на Делфи. Дан масив Spog типа 0 1 0 0 1 0 1 0, k_spog - количество единиц. Нужно сформировать другой масив KE, в котором будут храниться номера элементов, равных единице, из первого массива. Подскажите, в чем моя ошибка, вот код:

for i:=1 to maxpip do
begin
if Spog[i]=1 then
begin
for j:=1 to k_spog do
KE[j]:=i;
end;
end; Получаю результат 7, 7, 7 вместо 2,5,7

[Манжосов Денис :)]

Как вариант можно завести переменную n, которая будет обозначать текущее конечное положение в массиве единиц.

var
K_SPOS,i,j: byte;
SPOG, KE: array [1..20] of byte;
...
K_SPOG := 1;
j := 1;
for i := 1 to MaxPip do
 if Spog[i] = 1 then begin
                              KE[j] := i;
                              Inc(j);
                           end;

Должно работать

[Victory1]

Cпасибо, работает