Как переключить клавиатуру на режим прописных букв

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',20); a.println;   var flag: =true;   var k: =0;   var ap: =a[0];   for var i: =1 to a.length-1 do begin       if a[i]> ap then begin           if flag then begin k+=1; flag: =false end           end       else flag: =true;       ap: =a[i]       end;   writeln('кол-во участков возрастания: ',k) end. пример n= 15 -17 -2 -11 14 6 -3 -16 13 -13 -12 -16 2 15 -1 -20 кол-во участков возрастания: 5

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в матрице: ');   var m: =readinteger('количество столбцов в матрице: ');   writeln('*** исходная матрица a [',n,',',m,'] ***');   var a: =matrrandom(n,m,1,10);   a.println(3); writeln(3*a.colcount*'-');   writeln('*** исходная матрица b [',n,',',m,'] ***');   var b: =matrrandom(n,m,1,10);   b.println(3); writeln(3*a.colcount*'-');   writeln('*** матрица-результат с [',n,',',m,'] ***');   var c: =new integer[n,m];   for var i: =0 to n-1 do       for var j: =0 to m-1 do           c[i,j]: =a[i,j]+b[i,j];   c.println(3) end. пример количество строк в матрице: 4 количество столбцов в матрице: 7 *** исходная матрица a [4,7] ***   10  9  4  5  9  1  3   7  4  1  2  6  8 10   2  5  3  9  8  3  3   3  7  2  9  5  2 10 *** исходная матрица b [4,7] ***   8  1  1  4  2  5  3   8  1  8  8  3  1 10   1  5  6  2  6  5  5   8  6  5  9  4  1  7 *** матрица-результат с [4,7] ***   18 10  5  9 11  6  6   15  5  9 10  9  9 20   3 10  9 11 14  8  8   11 13  7 18  9  3 17