Egy tomb tartalmanak a torleset szeretnem megoldani, a tomb elemeinek a felulirasaval. Mukodik csak a vegen mikor kiiratom, akkor nem irja ki rendesen az elemeket az egeszet. Remelem segitetek!?

program vmi;

uses crt;

var a : array[1..15] of integer;

poz ,i,m,j : integer;

begin

clrscr;

randomize;

poz:=0;

m:=0;

for i:=1 to 15 do

begin

a[i] := 1 + random(50);

writeln('a[',i,'] = ',a[i]);

end;

for i:=1 to 15 do

begin

if(odd(a[i])) then

begin

poz:=i;

dec(i);

inc(m);

for j:=poz to 15 do

begin

a[j] := a[j+1];

end;

end;

end;

for i:=1 to 15-m do

write(a[i],' ');

readln;

end.