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

Var
alpha:string;
a: array [0 .. 26] of Char;

begin 
alpha:='HELLO'; 
for var i:=1 to length(alpha) do
begin   
a[i]:=alpha[i];   
write(Ord(a[i])+' '); 
end
end.