1 files changed, 8 insertions, 8 deletions
diff --git a/ROM.lpr b/ROM.lpr
index 898a35b..941a700 100644
--- a/ROM.lpr
+++ b/ROM.lpr
@@ -10,7 +10,7 @@ uses
   {$ENDIF}{$ENDIF}
   Classes
   { you can add units after this },
-  SysUtils,ROMunit, matheunit, Math, systemunit;
+  SysUtils,ROMunit, matheunit, Math, systemunit, lowlevelunit;
 
 var
   inPulsO,inPuls,refPulsO,refPuls,
@@ -277,14 +277,14 @@ begin
     fft(refPuls);
     fft(surTraj);
     fft(surVel);
-    inPuls[0].y:=0;
-    refPuls[0].y:=0;
-    surTraj[0].y:=0;
+    inPuls[0]['y']:=0;
+    refPuls[0]['y']:=0;
+    surTraj[0]['y']:=0;
     if wmax<0 then begin
-      cut(surTraj,min(refPuls[length(refPuls)-1].x,inPuls[length(inPuls)-1].x)/2);
-      cut(inPuls,surTraj[length(surTraj)-1].x);
-      cut(refPuls,surTraj[length(surTraj)-1].x);
-      cut(surVel,surTraj[length(surTraj)-1].x);
+      cut(surTraj,min(refPuls[length(refPuls)-1]['x'],inPuls[length(inPuls)-1]['x'])/2);
+      cut(inPuls,surTraj[length(surTraj)-1]['x']);
+      cut(refPuls,surTraj[length(surTraj)-1]['x']);
+      cut(surVel,surTraj[length(surTraj)-1]['x']);
     end
     else begin
       cut(surTraj,wmax);