PROGRAM  CSEQSRCH (INPUT,OUTPUT);
   TYPE MOJI= ARRAY [ 1..100 ] OF CHAR ;
   VAR   M,L: MOJI ;
           X: CHAR ;
       I,N,J:INTEGER ;

{$I B:SEQSRCH.SRC}

     BEGIN
       READLN (N);
       FOR I:=1 TO N DO
       READ (L[I]) ;
       READLN ;
       READ (X);
       WRITELN ;
       WRITELN ('MOJI M IS');
       FOR I:=1 TO N DO  WRITE (L[I]) ;
       SEQSRCH (X,L,J,N);
       WRITELN ;
       WRITELN ;
       WRITE ('MOJI X IS  ',X,'   NO. IS ',J);
     END.