然后老师给了这个：
uses crt;
var
i, j, rno, ratio, nb : integer;
oldcell, newcell : array[0..21, 0..41] of char;
cont : char;
begin
randomize;
writeln('Enter the initial percentage of living cells (0-100) : ');
readln(ratio);
for i := 0 to 21 do
for j := 0 to 41 do
newcell[i, j] := ' ';
for i := 1 to 20 do
for j := 1 to 40 do
begin
rno := random(100);
if rno < ratio then
newcell[i, j] := 'X'
end;
cont := 'Y';
while cont <> 'N' do
begin
clrscr;
for i := 1 to 20 do
begin
for j := 1 to 40 do
write(newcell[i,j]);
writeln
end;
for i := 1 to 20 do
for j := 1 to 40 do
oldcell[i,j] := newcell[i,j];
for i := ???
for j := ???
begin
nb := 0;
if oldcell[i-1, j-1] = 'X' then nb := nb + 1;
(* Missing statements here *)
end;
write('Continue (Y/N)?');
readln(cont)
end;
end.
求大神帮忙！！！急！！！明天就要交了！！！

翻译。。OK？？？