{ 联上 }

{break 跳出循环                                    }

var i,j,k:integer;

   nowint:array[0..9] of integer;

   b:boolean;

begin

i:=0;

k:=0;

repeat

 b:=true;

 for j:=0 to i-1 do

   if nowint[j]=arr_int[i] then

   begin

     inc(i);

     b:=false;

     break;

   end;

 if b then

 begin

   nowint[k]:=arr_int[i];

   inc(i);

   inc(k);

 end;

until i>9;

for j:=0 to k-1 do

begin

 memo1.Lines.Add(inttostr(nowint[j]));

end;