library robot;
type
      fVect=record
        x,y:single; //Single - вещественный тип в 4 байта, аналог Float (тоже 4 байта) в C++
      end;
      Robo=record
        Pos:array[0..2]of fVect; //Массивы по три переменные
        Spd:array[0..2]of fVect;
        Frc:array[0..2]of single;
      end;

      var R:Robo;

function RTICK():Robo; StdCall;
begin
     R.Frc[0]:=R.Frc[0]-0.007;
     R.Frc[1]:=R.Frc[1]-0.007;
     R.Frc[2]:=R.Frc[2]+0.007;
     if R.Frc[2]>0.8 then begin
       R.Frc[0]:=0.8;
       R.Frc[1]:=0.8;
       R.Frc[2]:=-0.8;
     end;

     Result:=R;
end;

exports RTICK; //Экспорт

begin
end.