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

Program №1;
uses crt;
var st:String;
q,i:Integer;
begin
clrscr;
writeln(Данная программа позволяет вычислить сумму кодов всех букв входящих в заданное слово);
writeln(Введите слово ( количество букв в слове не должно превышать 50));
readln(st);
q:=0;
for i:=1 to length(st) do
q:=q+ord(st[ i ]);
Writeln(q);
readkey;
end.