Преобразовать строчные буквы в прописные - Turbo Pascal (247576)

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

В последовательности латинских букв, заканчивающейся точкой, преобразовать строчные буквы в прописные. Помогите, пожалуйста, составить программу для ТР.

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

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

var
  s: string;
  i: integer;
begin
  writeln('Enter string:');
  readln(s);
  for i := 1 to length(s) do
    if s[i] in ['a'..'z']
      then s[i] := chr(byte(s[i]) - 32);
  writeln('Result:');
  write(s);
  readln
end.

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

В этом коде происходит следующее:

Объявляется переменная s типа string для хранения строки, введенной пользователем.
Объявляется переменная i типа integer для использования в цикле.
Выводится сообщение Enter string: и считывается строка, введенная пользователем, в переменную s с помощью функции readln.
Запускается цикл for, который проходит по каждому символу в строке s.
Внутри цикла проверяется, является ли текущий символ строчной буквой, используя оператор in и список ['a'..'z'].
Если символ является строчной буквой, он преобразуется в прописную, вычитая 32 из его значения (с помощью функции chr, которая преобразует числовое значение в символ), и заменяется в строке s.
После завершения цикла выводится сообщение Result: и считывается преобразованная строка s с помощью функции write.
В конце программы выводится пустая строка с помощью функции readln.