[ART]

Да будет код:

Код:

procedure TForm1.Eq(L1:TStrings; L2:TStrings);
var
i,j:integer;
begin
Randomize;
for i:=0 to L1.Count-1 do  //Берем i'тый элемент с  L1
 for j:=0 to L2.Count-1 do //потом пробегаемся по всем элементам L2 и стравниваем с i'тым элементом  L1
  if L1.Strings[i]=L2.Strings[j] then L2.Strings[j]:=IntToStr(Random(1000)+1); //если совпадение меняем j'тый элемент L2 на случайный
end;