В строке исключить все повторяющие символы а цифры заменить нулями- Pascal(Паскаль)

var
  s: string;
  i: integer;
  t: set of char;
 
begin
  Writeln('type in a line: ');
  Readln(s);
  t:= [];
  i:= Length(s);
  SetLength(s,0);     // variant for TP:  s[0]:=#0;
  for i:=1 to i do begin
    if not (s[i] in t) then begin
      t:= t+[s[i]];
      if s[i] in ['0'..'9'] then s[i]:='0';
      s:= s+s[i]
    end
  end;
  Writeln(s);
  Readln;
end.