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