работа со строками

[lilywka]

Задали строку текста (латинские буквы), в котором есть повторы символов (не обязательно подряд), удалить из него повторные вхождения каждой буквы (не использовать вспомогательный строка или массив).

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

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  s,s2:string;
  i:integer;
  c:char;
begin
  WriteLn('VVedite stroku: ');
  Readln(s);
  WriteLn('VVedite udalayemyj simvol: ');
  Readln(c);
  s2:= '';
  for i:=1 to length(s) do
    if s[i] <> c then s2 := s2 + s[i];
  WriteLn(' Resultat: ',s2);
  Readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Stilet]

  
for i:=1 to 255 do s:=StringReplace(s,chr(i)+chr(i),chr(i),[rfreplaceall]);

Подходит?