Запишитена языке Паскаль программу, которая вычисляет сумму кодов букв в слове "БАЙТ"

Программа на языке Паскаль:

program SumOfChars;

var
  word: string;
  sum, i: integer;

begin
  sum := 0;
  word := 'БАЙТ';

  for i := 1 to length(word) do
    sum := sum + ord(word[i]);

  writeln('Сумма кодов букв в слове "БАЙТ": ', sum);
end.