Напечатать текст заглавными русскими буквами - Turbo Pascal

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

1.type mes = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec); day = 1..31; var m1, m2: mes; k:1..maxint; n:1..12; Присвоить переменной m1 название месяца, следующего за месяцем m (с учетом того, что за декабрем идет январь). 2. Дан текст из строчных русских букв, за которым следует точка. Напечатать этот текст заглавными русскими буквами. 3. Дан непустой текст из цифр, за которым следует точка. Напечатать цифру, наиболее часто встречающуюся в этом тексте (если таких цифр несколько, напечатать любую из них). 4. Ввести массив записей о музыкантах. Каждая запись массива содержит следующие сведения об одном из музыкантов: паспортные данные – фамилия, имя, отчество, год рождения; профессиональные данные – инструмент, стаж, число записанных пластинок. Число записей произвольное. Вывести на экран фамилии всех музыкантов, играющих на тромбоне и имеющих, по крайней мере, одну записанную пластинку. 5. type letters=set of ‘a’..’z’; Составить программу, использующую процедуру print(A), печатающую в алфавитном порядке все элементы множества A, имеющего тип letters.

Решение задачи: «Напечатать текст заглавными русскими буквами»

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

program pr;
 
var
  s, s1: string;
 
function UpperCase(st: string): string;
var
  i: integer;
  ss: string;
begin
  ss := '';
  for i := 1 to length(st) do ss := ss + upcase(st[i]);
  upperCase := ss;
end;
 
begin
  writeln('Введите текст');
  readln(s);
  s1 := UpperCase(s);
  writeln(s1);
end.

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

Создается программа pr.
Объявляются две переменные типа string - s и s1.
Создается функция UpperCase, которая принимает один параметр типа string и возвращает результат в виде строки.
Внутри функции объявляются две переменные - i и ss. Переменная i является целочисленной, а ss - пустая строка.
Запускается цикл for для каждого символа в строке st.
Внутри цикла каждый символ преобразуется в верхний регистр с помощью функции upcase и добавляется к переменной ss.
После завершения цикла переменная ss присваивается переменной upperCase.
Выводится приглашение для ввода текста.
Считывается текст с помощью функции readln.
Переменная s1 присваивается результат вызова функции UpperCase с переменной s в качестве аргумента.
Выводится на экран значение переменной s1.