Существует ли этот символ???

[Nika110810]

Для вывода сообщений используется функция RUS, которая преобразует строку символов в кодировке
ANSI в строку символов в кодировке ASCII.
Листинг 4.1. Пересчет веса из фунтов в килограммы (консольное приложение)
program funt2kg; {$APPTYPE CONSOLE}
// Функция Rus преобразует ANSI-строку в ASCII-строку
function Rus(mes: string):string;
// В ANSI русские буквы кодируются числами от 192 до 255,
// в ASCII - от 128 до 175 (А..Яа..п) и от 224 до 239 (р..я).
var
i: integer; // номер обрабатываемого символа
begin
for i:=1 to length(mes) do case mes[i] of
'A'-.'n' : - ЧТО ЭТО ТАКОЕ???
mes[i] := Chr(Ord(mes[i]) - 64); 'р'..'я' :
mes[i] .:= Chr (Ord(mes [i] ) -16); - И ЭТО???
end;
rus := mes; end;

[Вадим Мошев]

for i:=1 to length(mes) do case mes[i] of
'A'-.'n' : - ЧТО ЭТО ТАКОЕ???

Это идёт проверка, принадлежит ли символ mes[i] диапазону 'A'-.'n'

mes[i] .:= Chr (Ord(mes [i] ) -16); - И ЭТО???

i-му символу строки mes присваивается тот же символ, но смещённый на 16 позиций назад.
Функция Chr возвращает символ, номер которого переда ей в качестве аргумента.
Функция Ord - возвращает порядковый номер символа, переданного ей в качестве аргумента.

А если подходить очень строго, то программа даже не скомпилируется, так как она записана с нарушениями синтаксиса языка (см. красные символы - точки, я их выделил намеренно).

[Nika110810]

Я ПОНИМАЮ, ЧТО ОНА НЕ СКОМПИЛИРУЕТСЯ, НО КАК УБРАТЬ ЭТИ ОШИБКИ?
Я ВЗЯЛА ЭТУ ЗАДАЧУ ИЗ ПРИМЕРА РЕШЕНИЙ, НО КАК ВИДИТЕ, ДАЖЕ ОНА С ОШИБКАМИ...

[Вадим Мошев]

Я ПОНИМАЮ, ЧТО ОНА НЕ СКОМПИЛИРУЕТСЯ, НО КАК УБРАТЬ ЭТИ ОШИБКИ?

Если я вас правильно понял, просто уберите эти точки.
И ещё, смотрите:

'A'-.'n' : - ЧТО ЭТО ТАКОЕ???

Поменяйте букву n на п

[gamer-25]

function Rus(mes: String): String;
var
  i: Integer;
begin
  for i:= 1 to length(mes) do
    case mes[i] of
      'А' .. 'п': mes[i]:= Chr(Ord(mes[i])-64);
      'р' .. 'я': mes[i]:= Chr(Ord(mes[i])-16);
    end;

  Rus:= mes;
end;

[gamer-25]

С интернетом что-то не то