under pascal to get ascii codes

program free;

var x:integer;
y:char;

begin
x:=integer;
y:=char(x);
write(y);
readln;
end.