Program testord;

const testchar : array[0..25] of char ='ABCDEFGHIJKLMNOPQRSTUVWXYZ';

type str26 = string[26];

var result : array[0..25] of integer;
    error  : integer;
    count  : byte;

begin
for count:=0 to 25 do
 begin
  write(testchar[count],' ');
  result[count]:=ord(testchar[count]);
  writeln(result[count]);
 end;
end.
