TData=record id:string[10]; comment:string[200]; primarySensor,kindAnalysisSensor:byte; percentTopLevel,percentBottomLevel:real; countPointData:integer; v,u,a,b:array of real;end;