// Simple FFT Magnitude calculation.
const N = 8;
var x : array of Float;
x.SetLength(2 * N);
for var i := 0 to N - 1 do begin x[2 * i] := i; x[2 * i + 1] := 0; end;
// Just print input to verify it runs
Print('Input: ');
for var i := 0 to N - 1 do Print(x[2 * i].ToString(1) + ' ');
PrintLn('');