Запишите на языке паскаль программу которая вычисляет сумму кодов букв в слове байт

 const     
b = 'байт';  
var   
l,i,s : integer;       
begin 
l := Length(b); 
s := 0;   
for i := 1 to l do   
s := s +ord(b[i]);     
writeln (s); 
end.