Hello Yan

Your original posting was almost empty, than you added a lot ...

The operation you are looking for is the Amplitude Spectrum. Basically you are on the right way. FourierParameters is used for some sort of scaling either omit the parameter or use {-1,1} the common choice for signal analysis.

fourierdata = 
  Abs@Fourier[data[[All, 2]], FourierParameters -> {-1, 1}];
ListLinePlot[fourierdata, PlotRange -> {{1, 200}, All}]

I doubt that the "Fortran" plot you showed us belongs to the data.

Thanks, Robert. I agree with you. From the second picture we could see that there are more than one amplitudes. I wrongly wrote my title. Do you have any idea how to get this amplitudes, I think I need to use a normalization, so I could plot exactly the same as in the second picture. But maybe there are needed to be evaluated also some other algorithms, before that?