Im using .nds file^^'

I tested this arm9 code and worked :
[pascal]
program toucharm9;

{$apptype arm9} //...or arm7
{$define ARM9} //...or arm7, according to apptype

{$mode objfpc} // required for some libc funcs implementation

uses
ctypes; // required by nds headers!

{$include nds.inc} // headers!
{$include dswifi9.inc} // headers!

var
i: integer;
X,Y:integer;
begin

consoleDemoInit();

videoSetMode(MODE_FB0);
vramSetBankA(VRAM_A_BG);
irqInit();
irqEnable(IRQ_VBLANK);
//printf('Teste de Teclas'+#10);

for i := 0 to (256 * 192) - 1 do
VRAM_A[i] := RGB15(15,25,1);

lcdSwap();
while true do
begin
if IPC^.touchX<>0 then
begin
printf('PX=%i / PY=%i'+#10,[IPC^.touchXpx,IPC^.touchYpx]);
VRAM_A[(IPC^.touchYpx*256)+IPC^.touchXpx-1] := RGB15(25,0,0);
end;
end;

end.
[/pascal]
now I'm trying to use the graphics of the touch screen same as the normal screen (VRAM_A)