帮我看一下出现列循环,怎么改?

Question

var
      i,j:integer;
       begin
i:=0;
j := 0;
       while i<10 do
       begin
 repeat
   j := j+1;
   edit1.text := inttostr(j);
 until j=10;
 end;
       i:=i+1;
       end;

Answer 1

var
      i,j:integer;
begin
i:=0;
j := 0;
       while i<10 do
       begin
 repeat
   j := j+1;
   edit1.text := inttostr(j);
 until j=10;
          i:=i+1;
       end;
end;

Answer 2

var
      i,j:integer;
       begin
i:=0;
       while i<10 do
       begin
j := 0;
 repeat
   j := j+1;
   edit1.text := inttostr(j);
 until j=10;
 end;
       i:=i+1;
       end;

Answer 3

var
  i,j:integer;
begin
    i:=0;
  while i<10 do
    begin
      j:=0;
      repeat
        j:=j+1;
        edit1.text :=IntTostr(j);
      until j=10;
      i:=i+1;
   end;
end;

Answer 4

我想告诉你的是：去看pascal基础吧拜托，看看while和repeat的区别先！我只能告诉你：用while就不需要用repeat了！

Answer 5

同样，用repeat也没必要用while