Вычислить сумму кодов всех букв входящих в заданное слово

[McFrey]

в итоге правильный вариант таков:
program lab8;

const
bk = ['A'..'Z', 'a'..'z', 'А'..'п', 'р'..'ё'];

var
st: String;
q, i, code, w: Integer;
l: integer;
error: integer;

begin

writeln('Данная программa позволяет вычислить сумму кодов всех букв входящих в заданное слово');
writeln('Введите слово ( количество букв в слове не должно превышать 50)');
repeat
error := 0;
readln(st);
l := length(st);
val(st, w, code);
for i := 1 to length(st) do
begin
if not (st[i] in bk) then error := 1;
end;
if (code = 0) or (l > 50) or (error = 1) then
writeln('Ошибка ввода. Повторите ввод.');
until (code <> 0) and (l <= 50) and (error <> 1);

begin
q := 0;
for i := 1 to length(st) do
q := q + ord(st[ i ]);
writeln('Сумма кодов всех букв равна ', q);
end;

end.

P.S. спасибо всем за помощь