var i:integer; begin for i:=32 to 255 do write(i,’ ‘,chr(i),’ '); end.
Они не русские там. Print(Ord(‘А’)) - выведите код первой русской и посмотрите