Составьте программу ,которая выводит на экран коды символов в слове BEBY.ABC Pascal

Предыдущий
вопрос Следующий
вопрос

program CodesInWord;
var
word: string;
i: integer;
begin
word := 'BEBY.ABC';
for i := 1 to length(word) do
begin
writeln('Character ', word[i], ' has ASCII code ', ord(word[i]));
end;
end.

Эта программа будет выводить на экран ASCII коды каждого символа в слове "BEBY.ABC".