Fórum array com xor(erroneo). #260239

procedure TForm1.BtnIniciarClick(Sender: TObject);
var
z,y,x,r:integer;
begin
MM1.Lines.Clear;
for x:=1 to 11 do
begin
MM1.Lines.add(inttostr(a[x]));
end;
MM3.Lines.Clear;
for y:=11 downto 1 do
begin
MM3.Lines.Add(inttostr(b[y]));
end;
mm2.Lines.Clear;
for z:=1 to 10 do
begin
c[z]:=MM2.Lines.Add(inttostr(a[x] xor b[y]));
end;

eu fiz este codigo mas ele sai um resultado totalmente errado ele so imprime um numero(10)...
eu gostaria que ele fizesse camparaçoes com o Xor mas não estadando certo. Alguem sabe onde eu posso estar errando....
tenho tres arrays.
c,a,b todas com 11 espaços.
ele imprime certo a array a, b, mas na hora da comporação na da o resultado esperado. Onde estario o Erro?

[b:7ceb85e20d][color=green:7ceb85e20d]Duplicado [/color:7ceb85e20d]- http://delphiforum.icft.com.br/forum/viewtopic.php?t=55388[/b:7ceb85e20d]