Не самый лаконичный и эффективный код, да и заточен исключительно под 4 символа, однако работает верно.
program sk;
uses crt;
var kod1,kod2,kod3,kod4: byte;
sim1,sim2,sim3,sim4: char;
s: integer;
begin
clrscr;
write ('Введите слово: ');
readln (sim1,sim2,sim3,sim4);
kod1:= ord(sim1);
kod2:= ord(sim2);
kod3:= ord(sim3);
kod4:= ord(sim4);
writeln ('Код ',sim1,' = ',kod1,';',
' Код ',sim2,' = ',kod2,';',
' Код ',sim3,' = ', kod3,';',
' Код ',sim4, ' = ',kod4,';');
s:=kod1+kod2+kod3+kod4;
writeln('Сумма кодов = ',s);
end.
Результат на скриншоте.
