Посчитать сумму кодов букв, составляющих данное слово. Коды букв заданы - Turbo Pascal

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

Коды букв имеют значения: A-1, B-2, C-3, D-4, E-5, F-6, G-7, H-8, I-9, J-10, K-11, L-12, M-13, N-14, O-15, P-16, Q-17, R-18, S-19, T-20, U-21, V-22, W-23, X-24, Y-25, Z-26. Заранее спасибо!

Решение задачи: «Посчитать сумму кодов букв, составляющих данное слово. Коды букв заданы»

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

Uses crt;
Var A:array['A'..'Z'] of integer; s:string; i,j,sum:integer; c:char;
Begin
ClrScr; Write('Input word:'); Readln(s); j:=0; sum:=0;
For c:='A' to 'Z' do            {в массив с символьными индексами заносим коды букв}
 Begin
  inc(j);                            {увеличиваем значение кода на 1}
  A[c]:=j;
 End;
For i:=1 to length(s) do         {проходим по слову}
 For c:='A' to 'Z' do                {проходим по массиву}
  If s[i]=c then sum:=sum+A[c];   {если буква из слова и индекс совпадают, берём элемент соответствующий данному индексу}
Writeln(sum);
Readln;
End.

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

В начале программы подключается библиотека crt, которая содержит функции для работы с числами и строками.
Объявляются переменные: A - массив целых чисел от 'A' до 'Z'; s - строка, в которую будет введено слово; i, j, sum - целые числа, которые будут использоваться в цикле.
Выводится сообщение для ввода слова.
Считывается слово из ввода пользователя.
Инициализируется переменная j со значением 0, которая будет использоваться для увеличения кодов букв на 1.
Инициализируется переменная sum со значением 0, которая будет использоваться для хранения суммы кодов букв.
Запускается цикл, который проходит по каждой букве в слове.
Внутри цикла создается вложенный цикл, который проходит по каждой букве в слове.
Внутри вложенного цикла проверяется, совпадает ли текущая буква с буквой в слове.
Если совпадение найдено, то к сумме кодов добавляется код текущей буквы.
После окончания вложенного цикла, переменная sum выводится на экран.
Программа завершается, ожидая ввода пользователя.