Задание со строками.

[ReM]

Госпада, помогите плз. Задание такое: Оставить в слове только первые вхождения каждой буквы. Задание вроде простое, но я над ним уже полтора дня мучаюсь... и хотьбы что. Могу выложить свои наброски, но баюсь толку будет мало.

[puporev]

uses crt;
var s:string; i,j:integer;
begin
clrscr;
write('s: ');readln(s);
i:=1;
while i<=length(s)do {пока не кончится слово}
  begin
    for j:=length(s) downto i+1 do {проверяем от конца до следующей за проверямой буквы, это чтобы после удаления буквы не измннились номера букв, которые не удалены}
    if s[j]=s[i] then delete(s,j,1);  {если повторяется, удаляем}
    inc(i);  {переходим к следующей букве}
  end;
write('s: ',s);
readln
end.

[ReM]

О_о Как все просто. Спасибо.