PROGRAM MANIPULASISTRING

PROGRAM MANIPULASISTRING;
USES WinCRT;
FUNCTION UCASE(S:STRING):STRING;
VAR I:INTEGER;

BEGIN

     FOR I:= 1 TO LENGTH(S) DO
         IF (S[I] >= 'a') AND (S[I] <= 'z') THEN
            DEC(S[I], 32);
            UCASE := S;
END;

FUNCTION LCASE(S:STRING):STRING;
VAR I:INTEGER;

BEGIN

     FOR I:= 1 TO LENGTH(S) DO
         IF (S[I] >= 'A') AND (S[I] <= 'Z') THEN
            INC(S[I], 32);
            LCASE := S;
END;
FUNCTION PCASE(S:STRING):STRING;
VAR I, J:INTEGER;

BEGIN

     IF (S[1] >= 'a') AND
     (S[1] <= 'z') THEN
           DEC(S[1], 32);
     FOR I:= 2 TO LENGTH(S) DO
           IF (S[I] >= 'A') AND
           (S[I] <= 'Z') THEN
                 INC(S[I], 32);
     FOR I:= 2 TO LENGTH(S)-1 DO
           IF (S[1] = ' ') THEN
           BEGIN
           J := I;
           IF (S[J + 1] >= 'a') AND
           (S[J + 1] <= 'z') THEN
           DEC(S[J + 1], 32);
           END;
     PCASE :=S;

END;
BEGIN
CLRSCR;
       WRITEln(LCASE('Created By vian sastra'));
       WRITEln(UCASE('Created By vian sastra'));
       WRITEln(PCASE('Created By vian sastra'));
       READLN;

end.