из статического массива вывести элементы в динамический

[yana1213]

Дан статический массив, вывести в динамически массив элементы, которые больше -10 и меньше 20

var
A: array [1..20] of integer;
B: array of integer;
i, N, M, k: integer;
begin
N:=StrToInt(Edit1.Text);
i:=0;
for i:=0 to N do
for k:=0 to M do
k:=0;
M:=0;
if (A[i]<20) and (A[i]>-10) then
B[k]:=A[i];
M:=M+1;
Setlenght(B,M);
end;
end;

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

[Artsiom]

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

for i:=0 to N do
for k:=0 to M do
k:=0;

Вы в теле цикла меняете счетчик?
Предположительно тут переменной(а точнее счетчику) k присвоится N-раз нуль. Но этого не произойдет, т.к. не скомпилирует.
Не правильно.

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

B[k]:=A[i];
M:=M+1;
Setlenght(B,M);

Значит с начала идет присвоение к-тому элементу массива В, а только потом этот массив инициализируется?
Не правильно.

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

Setlenght(B,M):

Такой процедуры не существует. Возможно вы имели ввиду SetLength
И где-то потеряли begin end; И слишком много for to do

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

N:=StrToInt(Edit1.Text);

Зачем вам переменная N?

[Serge_Bliznykov]

ко всем вышуказанным добавлю ещё - массив A нужно чем-то заполнить (внести в A[i] значения элементов массива). Иначе там будет мусор вместо значений!