Вводится текст на кириллице. Преобразовать все строчные буквы в прописные - Free Pascal

Формулировка задачи:

Вводится текст на кириллице. Преобразовать все строчные буквы в прописные: А роза упала на лапу Азора – А РОЗА УПАЛА НА ЛАПУ АЗОРА.

Решение задачи: «Вводится текст на кириллице. Преобразовать все строчные буквы в прописные»

Листинг программы

uses SysUtils;
var s : string;
begin
  write('Строка: '); readln(s);
  s := AnsiUpperCase(s); // Эта функция конвертирует кириллицу на русскоязычных ОСях
  writeln(s)
end.

Объяснение кода листинга программы

Вводится текст на кириллице.
Вводится строка Строка: с помощью функции writelnt.
С помощью функции readln считывается строка, введенная пользователем и сохраняется в переменной s.
С помощью функции AnsiUpperCase преобразуются все строчные буквы в прописные и результат сохраняется в переменной s.
С помощью функции writeln выводится преобразованная строка на экран.