There is a program that when entering a word mixes its letters and adds the missing ones (up to 14 characters). If you enter the word caps, then the output in capital letters will be only those that we entered earlier, and the additional ones will be lowercase. Is there any way to make it so that all displayed letters are capitalized? Here is the code
var s:string[14]; c:char; i,j:byte; begin randomize; write('введите слово:');readln(s); for i:=length(s)+1 to 14 do s:=s+chr(random(26)+97); for i:=1 to 14 do begin j:=random(14)+1; c:=s[i]; s[i]:=s[j]; s[j]:=c; end; writeln('результат:',s); readln end. 