bảng mã ASCII

program gyg;
uses crt;
var I:integer;
begin
clrscr;
for I:=0 to 255 do
write(I,'=', CHR(I),'');
readln;