Проверь
Program JSR256test;
Uses jsr256;
Var x, y, z: real;
Begin
init('acceleration', 'user', 3);
repeat // бесконечный цикл
setColor(255,255,255);
FillRect(0, 0, getWidth, getHeight);
setColor(0,0,0);
x := get_value(0); // запрашиваем данные у акселерометра
y := get_value(1);
z := get_value(2);
DrawText('x '+x,0,0);
DrawText('y'+y,0,50);
DrawText('z'+z,0,100);
delay(100);
Repaint; // Перерисовка экрана
until false;
End.