Вывести через пробел номера букв Где номера букв соответствуют их номерам в алфавите А -...

Question

Вывести через пробел номера букв
Где номера букв соответствуют их номерам в алфавите
А - 1, B - 2 и т.д.

Answer 1

Var
    i: integer;

begin
    for i := 1 to 26 do
        write(chr(i + 64), '-', i, ' ');
end.

Comments

в зависимости от кодировки сдвиг может быть и другой

---

мне надо через функции ord,chr.

---

и что не так?