cari karakter

seringkali saya bingung nyari karakter ascii,,, daripada susah-susah, mending nyari sampel code dari pascalnya......
progrmnya simpel aja. (soale cuma baca ASCII)
=======================================
uses WinCrt;

var
I: Integer;
begin
for I := 1 to 165 do Write(Chr(I));
end.
========================================