Помогите разъяснить функцию в паскале?

[ЕвгениуS]

надо писать отчет по курсовой, а я её не до конца понимаю, т.д. частично писал не я... ...
вот код программы...

Program tr;
uses Crt;
type
   TEtap=record
      		name:string;
          speed, time: real;
          end;

Var
   x: array [1..25] of TEtap;
   y: array [1..25] of TEtap;
   z: array [1..25] of TEtap;
      first1,  first2,  first3 : string;
      i, n: integer;
      min, d1, d2, d3 : real;

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;
label 1;
label 2;
label 3;
label 4;
label 5;
label 6;

begin clrscr;
writeln(Rus('perviy etap - Beg'));
1:write(Rus('vvedite distanciyu 1-go etapa (matters): d1= '));
read(d1);

if d1<0 then begin
     writeln('error: vvedite chislo ot 0 do 10000');goto 1;
             end;
if d1>10000 then begin
     writeln('error: vvedite chislo ot 0 do 10000');goto 1;
     end;
     
2:write(Rus('vvedite kolichestvo sportsmenov :  n= '));
read(n);

        if n<0 then begin
        writeln('error: vvedite chislo ot 2 do 25');goto 2;
        end;
        if n>25 then begin
        writeln('error: vvedite chislo ot 2 do 25');goto 2;
        end;

for i:=1 to n do
Begin
write(Rus('vvedite imya '),i,Rus('-go sportsmena : '));
read(x[i].name);

y[i].name:=x[i].name;
z[i].name:=x[i].name;

4:write(Rus('vvedite skorost'' sportsmena : '));
read(x[i].speed);
        if x[i].speed<0 then begin
        writeln('error: skorost'' ne moget byt'' otrecatel''noy');goto 4;
        end;
x[i].time:=d1/x[i].speed;
end;
i:=1;
min:=x[i].time;
for i:= 1 to n do
if x[i].time<min then
begin

min:=x[i].time;
first1:=x[i].name;
end;
writeln ('na 1-m etape pobedil  ',first1,' !!!   ');

{------------------------------------------------------------}
writeln(Rus('vtoroy etap - zapliv'));
3:write(Rus('vvedite distanciyu 2-go etapa (matters): d2= '));
read(d2);
         if d2<0 then begin
         writeln('error: vvedite chislo ot 0 do 10000');goto 3;
         end;
         if d2>10000 then begin
         writeln('error: vvedite chislo ot 0 do 10000');goto 3;
         end;

for i:=1 to n do
Begin
write ('vvedite scorost ',i,' sportsmena : ',y[i].name,' - ');
5:readln (y[i].speed);
         if y[i].speed<0 then begin
         writeln('error: skorost'' ne moget byt'' otrecatel''noy');goto 5;
         end;
y[i].time:=d1/y[i].speed;
end;
i:=1;
min:=y[i].time;
for i:= 1 to n do
if y[i].time<min then
begin
min:=y[i].time;
first2:=y[i].name;
end;
writeln ('na 2-m etape pobedil  ',first2,' !!!   ');
{------------------------------------------------------------}
writeln(Rus('tretiy etap - velogonka'));
6:write(Rus('vvedite distanciyu 3-go etapa (matters): d3= '));
read(d3);

if d3<0 then begin
     writeln('error: vvedite chislo ot 0 do 100000');goto 6;
             end;
if d3>10000 then begin
     writeln('error: vvedite chislo ot 0 do 100000');goto 6;
     end;

for i:=1 to n do
Begin
write ('vvedite scorost'' ',i,' sportsmena : ',z[i].name,' - ');
readln (z[i].speed);
z[i].time:=d3/z[i].speed;
end;
i:=1;
min:=z[i].time;
for i:= 1 to n do
if z[i].time<min then
begin
min:=z[i].time;
first3:=z[i].name;
end;
writeln ('na 1-m etape pobedil  ',first1,' !!!   ');
writeln ('na 2-m etape pobedil  ',first2,' !!!   ');
writeln ('na 3-m etape pobedil  ',first3,' !!!   ');
readln;
end.

что делает функция

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;

и все ее составляющие...
зачем здесь цифры 64 и 16? для чего она тут использована в этой программе?

[Вавел из ГМТУ]

Как известно (вроде как) в Паскале нельзя использовать Русский шрифт(вместо него будут "крякозябры"). Вот эта функция как раз и предназначена для того, чтобы использовать в программе Русский шрифт.
см. таблицу кодов ASCII и станет понятно почему 16 и 64. (см. пост от Greblin'a, он указал в каких таблицах глядеть)

Далее по коду:
1. "Первый этап - бег".
2. Введите дистанцию 1-ого этапа: (d1)
Если d1 < 0 и d1 > 10000 то "goto 1 пункт".
3. Введите кол-во спортсменов: (n)
Если n < 0 и n > 25 то "goto 2 пункт".
4. Мы заполняем массив "спортсмен" где содержатся коекакие сведения.
Имя, скорость и вычисляется время за которое пробегают спортсмены указанную дистанцию. На основании этого времени определяется победитель.

Потом по такомуже принципу проводяться 2 и 3 этап и в конце печается таблица:
writeln ('na 1-m etape pobedil ',first1,' !!! ');
writeln ('na 2-m etape pobedil ',first2,' !!! ');
writeln ('na 3-m etape pobedil ',first3,' !!! ');

PS: убогий код.
Доработка:
1. Убрать метки и пользовать цикл.
2. Написать нормально "коректность входных данных".

PSS: Зачем юзается функция Rus(...), если ты пишиш на транслите? Разве выходит чтото читабельное?

[Greblin]

Сообщение от Вавел из ГМТУ

см. таблицу кодов ASCII и станет понятно почему 16 и 64.

Точнее надо смотреть таблицу CP-1251 и CP-866 (OEM) и сравнивать их. Функция переводит строку-параметр из CP-1251 в CP-866

[Вавел из ГМТУ]

Ну незнаю, я неочень то знаю про такие таблицы.
Но могу сказать, то что эта функция баян жуткий. Я впервые увидел её когда только начинал кодить в какомто электронном учебнике.
Так как имена в этой функции никто не поменял, то найти оригинал(тот который я помню) не составило труда:

// Функция 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
      'А'..'п': mes[i] := Chr(Ord(mes[i]) - 64);
      'р'..'я': mes[i] := Chr(Ord(mes[i]) - 16);
    end;
  rus := mes;
end;

Такчто эта функция скопипастена откудато и вот её оригинал с оригинальными коментариями.

[ЕвгениуS]

Сообщение от Вавел из ГМТУ

PS: убогий код.
Доработка:
1. Убрать метки и пользовать цикл.
2. Написать нормально "коректность входных данных".

PSS: Зачем юзается функция Rus(...), если ты пишиш на транслите? Разве выходит чтото читабельное?

просто до этого код писал с русскими комментариями.. а потом ошибки разные пошли.. вотя и решил не мучаться...написал так... Все читабельно вроде.