FORMAT (1X,A40,I5,A15,I5,A7)

GOTO 4

10 WRITE(4,*)’Конец просмотра базы данных’

CLOSE (UNIT=3)

CLOSE (UNIT=4)

STOP

END

Если производить поиск не по имени, а по отчеству, то номер индекса найдем:

NI2=INDEX(FIO(NI+1:),’ ’), то есть поиск по второму пробелу.

текстовая подцепочка от N+1 позиции и до конца переменной FIO

Например, если записано :

Иванов Иван Иванович

то NI=7, a NI2=12.