for i:= 1 to 255 dobeginwriteln('The Decimal Value Is',' ', i);writeln('The Char Is',' ', chr(i));end;
ואז זה כל פעם יחזיר לך את הצ'אראני חושב שטבלת האסקי היא רק עד 255..
בהצלחה