一小段程序的问题

Question

procedure rest;
var temp,i:integer;
aquare:array[0..9] of integer;
selepos:array[0..9] of integer;
begin
Randomize;
for i:=0 to 9 do
selepos[i]:=i;
  repeat
    for i:=0 to 9 do
    begin
    temp:=trunc(random*10);
    end;
  until temp<9 OR temp>0
end;

Answer 1

procedure rest;
var 
   temp,i:integer;
   aquare:array[0..9] of integer;
   selepos:array[0..9] of integer;
begin
   Randomize;
   for i:=0 to 9 do selepos[i]:=i;
   repeat
      for i:=0 to 9 do
         begin
            temp:=trunc(random*10);
         end
   until (temp<9) OR (temp>0);
end;