Вывести строку, в которой удалены повторяющиеся символы

program lab11;
uses crt;
var c,s: string ; l,a,j,i:integer;
begin
clrscr;
writeln ('enter text');
readln (c);
l:=length(c);
begin
for i:=1 to l do
              begin
              for j:=i+1 to l do
                              if c[i]=c[j]
                              then delete (c , j, 1);
                              end;
                              delete (c , i, 1);
                              end;
writeln (c);
readln;
end.

// написать прогу которая будет выдавать строку в которой удалены повторяющиеся символы
// ABC-Pascal. lamed, 05.2011
uses
  crt;
var
  chars1, chars2: set of char;
  i, len: integer;
  s, tmp: string;
begin
  clrscr;
  readln(s);
  len := length(s);
  chars1 := [];
  chars2 := [];
  for i:= 1 to len do
    if s[i] in chars1 then
      chars2:= chars2+[s[i]]
    else
      chars1 := chars1+[s[i]];
 
  tmp:= '';
  for i:= 1 to len do
    if not(s[i] in chars2) then
      tmp := tmp+s[i];
  s:= tmp;
  writeln('s=',s);
end.