Перевод всех букв в верхний регистр - Turbo Pascal

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

Я в паскале ещё тупой не могу написать программу: пользователь вводит слово и программа капсит все буквы

Решение задачи: «Перевод всех букв в верхний регистр»

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

function XUpCase(c:char):char;
begin
  if ord(c) in [97..121, 160..175] then
    XUpCase:=chr(ord(c)-32)
  else
    if ord(c) in [224..239] then
      XUpCase:=chr(ord(c)-80)
    else
      XUpCase:=c
end;
var
  i:integer;
  s:string;
begin
  s:='тогда напишите через ord,мне самому интересно';
  for i:=1 to Length(s) do
    s[i]:=XUpCase(s[i]);
  WriteLn(s);
  ReadLn
end.

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

В функции XUpCase определяется условие для проверки символа.
Если символ является заглавной буквой (ord(c) находится в диапазоне от 97 до 121 или от 160 до 175), то его преобразуют в строчную букву, вычитая 32 из его кода (chr(ord(c)-32)).
Если символ является строчной буквой (ord(c) находится в диапазоне от 224 до 239), то его преобразуют в заглавную букву, вычитая 80 из его кода (chr(ord(c)-80)).
Если символ не является ни заглавной, ни строчной буквой, то он остается неизменным.
В программе объявлены две переменные: i и s.
Переменная s инициализируется строкой тогда напишите через ord,мне самому интересно.
Затем происходит цикл for, который проходит по каждому символу в строке s.
На каждой итерации цикла текущий символ преобразуется в верхний регистр с помощью функции XUpCase.
Преобразованный символ заменяет исходный символ в строке s.
После завершения цикла программа выводит итоговую строку s.
Затем происходит вызов функции ReadLn, чтобы пользователь мог прочитать ввод.