Я делал именно так, но вот почему тут у тебя деление на m1?
a.x := c * v/t1.m;
a.y := s * v/t1.m;