[ShutTap]

что-то сделал, кроме исключений вроде более менее работает, сойдет)

только проблема с повторяющимися значениями. Нужно удалить повторяющиеся элементы, делал через второй массив:

word:array[0..11] of string - исходный массив с повторами,
findword:array of string - новый массив, где не должно быть повторов

Код:

for i:=0 to Length(word)-1 do
 begin
   flag:=true;

   for k:=0 to Length(finword)-1 do
    begin
     if word[i]=finword[k] then
     begin
      flag:=false;
      break;
     end;
      if flag=true then
       begin
        SetLength(finword,Length(finword)+1);
        finword[length(finword)-1]:=word[i];

       end;
    end;
 end;

не работает. погуглил в интернете, там у кого-то точно такой же код, вроде, и работает... Не подскажите, что не так?