{* Изменение регистра букв *}

Unit STR_5;
Interface
Implementation
Begin
 writeln('Перевод из маленьких букв в большие (пример a-> A)');
End.

Program str_5;

Uses str_5.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Const {* Постоянные значения *}
  a : Array[1..27] Of char = ('a', 'b', 'c', 'd', 'e', 'f', 'g',  'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'r', 'q', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', ' ');
  b : Array[1..27] Of char = ('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L',  'M', 'N', 'O', 'P', 'R', 'Q', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', ' ');
Var {* В работе нам потребуются переменные: *}
  s : String;
  n : String;
  i : integer;
  j : integer;
Begin
  writeln('Vvedite chislo propisnimy');
  readln(s);
  For i := 1 To length(s) Do {* Цикл для i => [1 .. length(s)] *}
    For j := 1 To 27 Do {* Цикл для j => [1 .. 27] *}
    Begin
      If copy(s, i, 1) = a[j] Then
        n := n + b[j];
    End;
  writeln(n);
  readkey; {* Ждем нажатия пользователя *}
End.