Awk rand function problems

Awk-V rand_str = $ random'
47 begin {m_num = argv [2]; s_num = argv [3]; srand (rand_str );
48 # select the first s_num for reservoir sampling
49 for (I = 1; I <= m_num; I ++) {A [I] = I };
50 for (I = s_num + 1; I <= m_num; I ++)
51 {---
52 m = int (RAND () * I) + 1;
53 If (M <s_num ){
54 TMP = A [m];
55 A [m] = A [I];
56 A [I] = TMP;
57}
58}
59 for (I = s_num + 1; I <= m_num; I ++) {delete a [I]} # Delete redundant
60 slen = asort (A, SA );
61 # For (I = 1; I <= s_num; I ++) {print SA [I]}
62 Index = 1;
63}
64 {
65 # each line
66 If (SA [Index] = nR) {index ++; print $0}
67} '$ mark_file $ mark_num $ sample_num> $ sample_file
68 hits =$ (awk '{if ($2 = 1) {print $2}' $ sample_file | WC-L );
69 Rm-RF $ sample_file
70 return $ hits