Pascal. Найти сумму кодов(ASCII) слова, введенного с клавы.

function CutA(S:String):String;
begin
while Pos('A',UpperCase(s))>0 do
begin
Delete(s,Pos('A',UpperCase(s)),1);
end;
Result:=s;
end;

str:String;
ch:char;
i,num:byte;
count:word;
begin
for i :=1 to Length(str)
begin
ch := str[ i ];
num := Ord(ch);
count := count + num;
end;
WriteLn (count);
end.