[badtrips]

создаю массив

Код:

for i:=0 to l-1 do
  begin
  r[l-i]:=chislo mod 10;
  chislo := chislo div 10;
  end;

вывожу на экран

Код:

for i:=1 to l do
begin
  writeln('r[',i,']=',r[i]);
end;

например ввел 13579

вывел

Код:

r[1]=1
r[2]=3
r[3]=5
r[4]=7
r[5]=9

потом этот массив передаю в функцию где он проверяется на прогрессию,l - размер массива

Код:

function progr(l:integer;r:array of integer):Boolean;

и уже в функции он при выводе этого же массива выдаёт его значение.
элементы массива я не меняю внутри функции.

Код:

r[1]=1
r[2]=3
r[3]=5
r[4]=7
r[5]=0

и так с любым последним элементом,и любая прогрессия-не прогрессия..
никак не пойму где я что неправильно наворотил...