PROCEDURE  SEQSRCH (X: CHAR;L: MOJI; VAR J,N: INTEGER);
       BEGIN
         J:=1  ;
         WHILE (J<=N) AND (L[J]<>X) DO
         BEGIN
            J:=J+1
          END;
         IF  J>N  THEN  J:=0
       END ;