Question: Square Free Factorization

Dear hope you will fine. I am try to make a program of square free factorization over a finite field whose alogrithm is below:

Algorithm: SFF (Square-Free Factorization)
  Input: A monic polynomial f in Fq[x]

Output: Square-free factorization of f

i←1; R ← 1; g ← f′;
  if g ≠ 0 then {
     c ← gcd(f, g);
     w ← f/c;
     while w ≠ 1 do {
           y ← gcd(w, c); z ← w/y;
           R ← R·zi; i ← i+1; 

           w ← y; c ← c/y }
     if c ≠ 1 then {
           c ← c1/p;

           Output(R·SFF(c)p) }

     else  Output(R)
  else {
           f ← f1/p;

           Output(SFF(f)p) }

  end.

The attached file my try to make this, please find and help me to complete this. I am waiting your kind response.

Help.mw

With my best regards and sincerely.

Muhammad Usman

School of Mathematical Sciences 
Peking University, Beijing, China