Версия для печати темы

var s: string; i: byte;
begin
 readln(s); { допустим, 'start' }
 for i := 1 to length(s) do s[i] := upcase(s[i]);
 writeln(s); {'start' поменяется на 'START'}
end.

Function UpperString(s: String): String;
 Var i: Byte;
 Begin
   For i := 1 To Length(s) Do
     If s[i] In ['a'..'z'] Then s[i] := UpCase(s[i])
     Else
       If s[i] In ['а'..'п', 'р'..'я'] Then
         Begin
           { Если пришли сюда, то буквы - русские. Добавляй свой код по переводу кириллицы в верхний регистр }
         End;
   UpperString := s;
 End;

Function UpStr(S:String):String; {перевод строки в верхний регистр}
Var I:Byte;
Begin
For I:=1 To ORD(S[0]) Do
Begin
 Case S[I] Of
  'a'..'z':S[I]:=Chr(Ord(S[I])-$20);
  'а'..'п':S[I]:=Chr(Ord(S[I])-$20);
  'р'..'я':S[I]:=Chr(Ord(S[I])-$50)
 End
End;
UpStr:=S
End;