I am trying to fit a function and Here is the code which I am trying, Please find the data here dataset

`Data = Import[ "E:\Shelender\codes\Mathematica\Aelastic \ relaxation\datat.asc"]; real = Data[[All, {1, 2}]]; imag = Data[[All, {1, 3}]]; w = 1.26*10^8; k = 1.38*10^-23; f[H_, s_, d_] := ((1/(Sqrt[2*Pi]*s*H))*Exp[(-(Log[(H/d)])^2/(2*s^2))]) dynamic[x_?NumericQ, s_?NumericQ, d_?NumericQ, A_?NumericQ, t_?NumericQ] := A*(1 - NIntegrate[ f[H, s, d]/((1 + (I*w*t*Exp[((H)/(k*x))]))), {H, 0, \[Infinity]}]) fit = ResourceFunction["MultiNonlinearModelFit"][ Rationalize[{real, imag}, 0], ComplexExpand[ReIm@dynamic[x, s, d, A, t]], Rationalize[{{A, 1.0*10^-4}, {t, 1.0*10^-12}, {d, 10}, {s, 0.25}}, 0], {x}, PrecisionGoal -> 3, AccuracyGoal -> 3]; fit["ParameterTable"] Show[ListPlot[{real, imag}], Plot[{fit[1, x], fit[2, x]}, {x, 0, Max[real[[All, 1]], imag[[All, 1]]]}, PlotRange -> All], PlotRange -> All] `

Although I am not getting any error but fit values are completely off