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

Var
    i: integer;

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