Дан текст. Выяснить, является ли этот текст десятичной записью целого числа

В задании необходимо:

1. читать исходный текст, символьные строки и т.п. из внешнего символьного файла.
2. результат выполнения программы выводить в новый символьный файл и/или на консоль.

INPUT " Vv. Put k File: ", n$
OPEN n$ FOR INPUT AS #1
LINE INPUT #1, S$
PRINT " S= "; S$
CLOSE
FOR i=1 TO LEN(s$)
IF MID$(s$,i,1)<"0"OR MID$(s$,i,1)>"9"THEN f=1
NEXT
OPEN"output.txt" FOR OUTPUT AS#2
IF f=0 THEN PRINT #2,"yes":PRINT"yes"ELSE PRINT#2 "no":PRINT"no"
CLOSE

автор: кот Бегемот