[TAMBIK]

//  min - растояние от куда идем до где нам быть
//  startX - кординаты куда идем
//  startY - кординаты куда идем
//  myXpos - кординаты чара
//  myYpos - кординаты чара
//  xxx  - кординаты на растояние min от кординат куда идем
//  yyy  - кординаты на растояние min от кординат куда идем
//  rast - растояние от чара до куда идем
//  count - скоко отрезков длиной min будит на отрезке от чара  до куда идем
  rast:=dist(startX,startY,MyXpos,MyYpos);
  count:=Round(rast/min); 
  xxx:=Round((MyXpos+startX*count)/(1+count)); 
  yyy:=Round((MyYpos+startY*count)/(1+count));