Read File and check records for length

I need a script that will run in unix to:

1) Read and input file with 1 column that contains for ex:
0123456789
1234567890
...etc
2) Checks the first column if it is:
a. Numeric from 0 - 9
b. if it is not less than 10 digits in length delete it from the file and put it in a deleted.bad file.

Please help as i have to do this asap.

Thank you

Lots of approaches to this, but...
what have you tried to do this?

Here is what I have developed so far:

Today=`date +%m/%d/%y`
host=`uname -n`
print -n "Enter the file name to check TN size? " ; read tnfile
n=`cat $tnfile|wc -l`
echo 'Number of records to check' $n
set -A abc `cat $tnfile`
for ((i=0;i<n;i+=1))
do
string=`echo ${abc[$i]} < $tnfile`
if echo $string | egrep -q '^[0-9]{10}$'; then
#echo "Good length TN Line = $string"
;
else
echo "Invalid length TN Line = $string"
fi
#i=`expr $i + 1`
done
exit 0

to identify records as specified try:

awk '$1 !~ /^[0-9]+$/ || length($1)<10 {print $0}' tnfile

Thank you. this works too. Mine also works. But yours is only line worth of coding... love it.