Убрать из данного текста уже встречающиеся символы. (Произвести "выжимку" текста)

program p46;
  uses crt;
  var а,b, с: string;
      i,j:integer;
begin
  clrscr;
  write(' Введ текст a=');readln(a);
  b:= ' ';
  for i:=1 to length(a) do
    begin
      c:=copy(a,i,1);
      if pos(c,b) = 0 then b:=b+c;
    end;
  writeln(b)
  readln;
end.