老师先生出作业题，就是不会做，题目没有输入，只有输出，输出是两行：
12345
hello
program homework;
procedure func();
begin
{请下面空白处添加n行代码}
{其他地方将为0分}
{用write,writeln,halt语句0分}
{代码填空区结束}
end;
procedure x();
var
s:string;
begin
s:='12345';
writeln(s);
func();
writeln(s);
end;
begin
x();
end.
运行结果是：
12345
hello

可以少填吗

orz不会
下面有输出s的语句，必须修改s
可s不能直接修改，难道得塞汇编改内存？

assert(false,'hello');
大触好，我是什么都不懂的新人，上面这行是我随便打的，肯定不能运行吧

LZ已经用汇编搞出来了orz

今天你们老师讲完回来告诉我们正解。。。我不认为竞赛会用到汇编

路过

如果显示没有变化，就在s:='12345';那句下面先加一句writeln(longint(@s[1])); 用这个数字替换21036629

除了改变s的值，否则别无他法

按要求改过了

program homework;
procedure func();
begin
{请下面空白处添加n行代码}
{其他地方将为0分}
{用write,writeln,halt语句0分}
end;
procedure writeln(var s:string);
begin
system.writeln(s);
s:='hello'
{代码填空区结束}
end;
procedure x();
var
s:string;
begin
s:='12345';
writeln(s);
func();
writeln(s);
end;
begin
x();
end.
看到 @风x千叶翔龙V 说的“把writeln这个过程重新定义”我就真试着重新定义一下，原来真的可以啊……

其实。
你可以。
在func中写一个readln；然后在程序停下来的时候，用CE修改器把12345改成hello。这样就没问题了

老师？你在哪个

program homework;
procedure func();
begin
{请下面空白处添加n行代码}
{其他地方将为0分}
{用write,writeln,halt语句0分}
end;
{$macro on}
{$define func:=s:='hello';www}
procedure www();
begin
{代码填空区结束}
end;
procedure x();
var
s:string;
begin
s:='12345';
writeln(s);
func();
writeln(s);
end;
begin
x();
end.
我还是不喜欢换个机器就可能失效的代码……所以以上就是我的最终答案

你们都好厉害...
我只想到s:=`hello`;
根本没想到修改内存

用pascal最最禁忌方法:打inc
打inc直接无视'{用write,writeln,halt语句0分}'
代码:
program homework;
procedure func();
begin
{请下面空白处添加n行代码}
{其他地方将为0分}
{用write,writeln,halt语句0分}
{$I ***.inc}
{代码填空区结束}
end;
procedure x();
var
s:string;
begin
s:='12345';
writeln(s);
func();
writeln(s);
end;
begin
x();
end.
再在.pas的目录建个***.inc
打入该代码:
writeln('hello');
halt;
就只不过把***.inc里的代码用编译开关将***.inc插入.pas中,并保证.pas没有writeln('hello');halt;