{*********************************}
{*  Convert Lowercase Characters *}
{*        to  Uppercase          *}



TYPE WORKSTRING=STRING[40];   {** Adjust the String Length Here **}

VAR SOMETHING : WORKSTRING;

FUNCTION UPSTRING(INPSTRING:WORKSTRING):WORKSTRING;
VAR I : INTEGER;
    TMSTRING :WORKSTRING;
    HOLD : WORKSTRING;

BEGIN
     HOLD := '';
     FOR I:=1 TO LENGTH(INPSTRING) DO
  BEGIN
     TMSTRING[I]:=UPCASE(ORD(INPSTRING[I]));
     HOLD := HOLD+TMSTRING[I];

END;
UPSTRING := HOLD;
END;
BEGIN
     CLRSCR;
     WRITE('ENTER SOMETHING ');
     READLN(SOMETHING);
     SOMETHING:=UPSTRING(SOMETHING);
     WRITELN(SOMETHING);

END.
