pascal用了uses crt 之后为什么无法输出中文字符？

嗯 用桐人镇楼 呵呵

有木有人啊啊啊啊啊 求助 求助

@Fallen_Breath @fighting小豆纸

为毛线要输中文啊？？话说我以前用过一个叫CP的软件，这个就可以用中文输，但是网上我搜不到……

你需要Free Pascal2.0.4
[无效] http://pan.baidu.com/s/1ntEzi0h

https://tieba.baidu.com/p/2852020108?share=9105
话说现在P吧伸手党好多啊

补问一下 众大神

uses crt;
var s:string;
begin
readln(s);
repeat
clrscr;
delay(500);
writeln(s);
delay(500);
until false;
end.
这样的程序可不可以做到在输出是按空格就暂停，在按一次就继续输出

@82111668_2012 @Fallen_Breath

继续补问 如果要pascal做到播放音频文件有木有可能呢 就是那种游戏背景音乐的感觉

播放音频：
function mciExecute(pszCommand:PCHAR):BOOLEAN; stdcall; external 'winmm.dll' name 'mciExecute';
function music(st:string):integer;
var f:boolean;
begin
if not(fileexists(st)) then exit(1);
f:=mciExecute(pchar('play '+st));
if f then exit(0)
else exit(1);
end;