Your factorial routine does not look correct, and the while loop will only ever do one iteration. Factorial N is 1*2*3...*N. You also need to get rid of those two huge arrays, they serve no purpose. The logic for your program should be:
Get number of tries
DO
Get next number
Calculate the factorial
Display the number, and the factorial
Set number of tries = (number of tries - 1)
If number of tries is zero, break
Repeat
END DO