Помогите исправить, пожалуйста

[abcdefg]

program lalala;
var N, k, i: integer;
X, A: array [1..20] of integer;
begin
write('vvedite N=');
readln(N);
for i:=1 to N do
begin
write('X[',i,']=');
readln(X[i])
end;
for i:=1 to N do
begin
if X[i]>0 then
X[i]:=A[k];
A[k]:=1;
end;
write(X[k])
end.

выдает ошибку:
выход за границы диапазона

что нужно исправить? а то я сильно туплю

[k1r1ch]

X[i]:=A[k];
A[k]:=1;

А в k то вы почему ничего не записали?
И еще, если N > 20, тоже будет глюк!

[Desha]

for i:=1 to N do
begin
if X[i]>0 then
X[i]:=A[k];
A[k]:=1;
end;

для А тоже счетчик задавать надо в for/ ато так он все время в 1й записывает. или так и надо?

[Lawless]

у вас k = 0;
а масив от 1 до 20..
просто после Begin

k:= 1;

или же

a: array[0..19] of integer;

[Desha]

Точно lawless сказал. С последним кодом работает.

[abcdefg]

спасибо
оказывается не все так сложно