[ALexandr555]

Код:

1 2 3 4 5 6 7 8 9 10

begin   s := TStringList.Create;   s.LoadFromFile('love.txt'); for i:=0 to s.Count-1 do     for k:=1 to Length(s.Strings[i]) do       if(s.Strings[i][k] = s.Strings[i][k]) then        begin          s.Delete(i);         end; s.SaveToFile('love.txt');

пробую таким способом их сравнивать и удалять, чтото не выходит