FUNCTION INDEX (VAR S: STRING; C: CHAR) : INTEGER; 

VAR 
    I,
    K,
    J      : INTEGER;
BEGIN
  K := UPPER(S) ;
  I := 1;
  WHILE (S[I] <> C) AND (I < K) DO
     I := I + 1 ;
  IF (I = K )
    THEN
      INDEX := 0 ;
  ELSE
     INDEX := I ;
END; {INDEX}