英语和Turbo Pascal 7达人请帮个忙~~~

简单翻译下.

任务

设计一个猜数字的Pascal游戏.制作中你得.....
1.(没用)
.....

任务要求

就和你说的差不多.

我对TP有一定研究,看来你找对人了.
改变颜色要用到Crt单元,你应该知道单元吧?
什么?不知道?
总之你在var前面加一句
uses crt;
就行了.这个单元里有许多新增的字符处理语句.
介绍下:
textcolor(color);
这个过程可以改变目前字体的颜色.Color为0--15的任意一个数字,分别代表16种颜色.这些数字也可以用颜色代替,例如:
textcolor(1); 以及
textcolor(red);都是合法的.
用了过程之后,以后输出的字体就是这个颜色了.
接下来,这是设置背景颜色的过程:
textbackground(color)
用法和刚才的一样;

最后介绍一下random和randomize函数;
random用于产生一个随机数,比如random(9)就会从0-8中随意产生一个整数.
在用这条语句前,必须用randomize过程初始化,否则每次随机的都是固定的数.
再来这个游戏啦.

Program Guess;
uses crt;
var
guess,you,i:byte;{定义Guess为0-127之间的一个数字,即我们要猜的数.不定义它为integer是因为这个数在1-10间,用不着integer那么大,用byte节约内存.you为你猜的数.i为已经猜的次数}
pan:boolean;{用于判断数据是否符合要求}
begin
randomize;{初始化随机数}
guess:=random(10)+1;{很明显,这样一来产生的数就在1-10间了}
repeat
pan:=true;{先假定符合要求}
readln(you);{等待玩家输入数据}
if (you<1) or (you >10) then
begin
writeln('你输入的树超出了范围，请输入1-10间的数');
pan:=false;
end; {判断数据是否超出范围}
if pan=true then
i:=i+1; {如果符合要求，那么这次猜就生效，记数一次}
if you=guess then
begin