Задача по фортрану 77

[Nadya123456]

проверьте пожалуйста мою задачу:

нужно написать подпрограмму, которая будет переписывать один текстовый файл в другой, вставляя в конец каждой строки количество цифровых символов.

имена текстовых файлов пользователь должен задать сам.

program LAB5
CHARACTER S*50, C*1
print *, 'Задание: переписать текстовый файл в другой,'
print *, 'вставляя в конец каждой строки число-кол-во'
print *, 'цифровых символов'
print *, 'Введите имя исходного файла A'
read *, A
print *,'Введите имя нового файла B'
read*, B
call PP
end¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬

SUBROUTINE PP(A, B)
CHARACTER S*50, C*1
open (5,FILE='A', status='old')
open (3,FILE='B', status='new')
do 3 j=1,100
read (5,100, end=2) s
n=len(s)
k=0
do 1 i=1,n
c=s(i:i)
1 if (c.GE.'0'.and.c.le.'9') k=k+1
write (3,100) s, k
3 continue
100 format (A,i3)
2 stop
end