Работа с текстовыми файлами, Удаление повторяющихся слов из файла Опции

[dened]

Суть задачи такая.
Нужно удалить из текстового файла повторяющиеся слова. Причем текстовый файл очень большой, порядка 200 000 строк и повторяющихся слов там тоже очень много
Пример
мама
папа
мама
бабушка
дед
мама
Результат должен быть
мама
папа
бабушка
дед

Может это уже решалось здесь, но честное слово искал около часа. Находил тока работу с символами. Хотя может это и почти одно и тоже.

[volvo]

Программа, написанная с использованием списков (деревья дадут гораздо большую скорость при поиске), отработала за 118 сек. против 49 минут по предыдущему алгоритму (слов в исходном файле - 347621, в алфавите - 24000 слов)

uses list;

var
  arr_list: array['A' .. 'Z'] of tlist;

function is_present(var lst: tlist; s: string): boolean;
var st: string;
begin
  is_present := lst.present(s);
end;

var
  f_in, f_out: text;
  s: string;
  T: dword;
  count_n, count_unique: integer;

  ch: char;

begin
  for ch := 'A' to 'Z' do begin
    arr_list[ch].init;
  end;

  assign(f_in, 'very_big.txt');
  reset(f_in);

  assign(f_out, 'very_dup.txt');
  rewrite(f_out);

  count_n := 0; count_unique := 0;
  while not eof(f_in) do begin
    readln(f_in, s);
    inc(count_n);
    if count_n mod 50 = 0 then writeln(':: read ', count_n);

    if not is_present(arr_list[upcase(s[1])], s) then begin
      writeln(f_out, s);
      inc(count_unique);
      arr_list[upcase(s[1])].append(s);
    end;
  end;
  close(f_out);
  close(f_in);
  writeln('count = ', count_n, ' unique = ', count_unique);

  for ch := 'A' to 'Z' do begin
    arr_list[ch].done;
  end;

end.