Функция UpCase()

Модуль SYSTEM

Преобразовывает символ из нижнего в верхний регистр.

Объявление:

Function UpCase(Ch : Char) : Char;

Режим:

Windows,  Protected,  Real

Замечание:

Ch - выражение типа Char. Результат типа Char, преобразованный из нижнего в верхний регистр. Символьные значения, не находящиеся в диапазоне ['a' .. 'z'], остаются неизменными.

Пример:

{ Пример программы для функции UpCase}
 
Uses WinCrt;
 
Var S : String;
    I : Integer;
 
Begin
 Write('Введите строку: ');
 ReadLn(S);
 For I:=1 To Length(S) Do S[I]:=UpCase(S[I]);
 WriteLn('Строка заглавными буквами: ', S);
End.