Здравствуйте, Чечин Георгий Александрович!
Решение задачи с переводом строчных букв в прописные в приложении. Если для латинских букв есть специальная функция UpCase(ch), то русские буквы приходится переводить вручную, используя таблицу символов ASCII и функции ord(ch), chr(val).

Приложение:
uses crt;var s:string; i:integer;beginclrscr;write (‘s:‘);readln(s);for i:=1 to length(s)do begin s[i]:=UpCase(s[i]); if ord(s[i]) in [160..175] then begin s[i]:=chr(ord(s[i])-32); end else if ord(s[i]) in [224..239] then begin s[i]:=chr(ord(s[i])-80); end else if s[i]=‘с‘ then s[i]:=‘р‘; end;write(s);readln;end.

Здравствуйте, Чечин Георгий Александрович!
Программа в приложении она может переводить строчные буквы в прописные на русском и английском языке.
Удачи !!!!!

Приложение:
vAri:integer;s:string;BeginReadln(s);For i:=1 to length(s) doIf ((s[i]>=‘A‘)and(s[i]<=‘Z‘))or ((s[i]>=‘А‘)and(s[i]<=‘П‘)) thens[i]:=Chr(ord(s[i])+32)elseIf (s[i]>=‘Р‘)and(s[i]<=‘Я‘) thenS[i]:=Chr(ord(s[i])+80);Writeln(s);Readln;end.

Здравствуйте, Чечин Георгий Александрович!
Тут два варианта:
1. Вы вводите только латинские буквы.
2. Вы вводите русские и латинские буквы.
1. В плане реализации очень быстрый:
Program z1; uses crt;
var s:string;
i:integer;
begin
clrscr;
Writeln(‘Введите строку: ‘);
readln(s);
for i:=1 to length(s) do
s[i]:= UpCase(s[i]);
Writeln(s);
readln
end.
функция UpCase преобразует строчную латинскую букву в прописную.
Второй выриант немного посложнее:
Program z1; uses crt;
var s:string;
i:integer;
begin
clrscr;
Writeln(‘Введите строку: ‘);
readln(s);
for i:=1 to length(s) do
case s[i] of
‘а‘: s[i]:=‘А‘;
‘б‘: s[i]:=‘Б‘;
‘в‘: s[i]:=‘В‘;
...
‘я‘: s[i]:=‘Я‘;
else s[i]:=UpCase(s[i]);
end;
Writeln(s);
readln
end.
Надеюсь я Вам помог...