Pascal проблема со строками

[klim4er]

ребят!!! помогите плиз с написанием программы!!!!

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

[andrewpalkin]

Сообщение от klim4er

ребят!!! помогите плиз с написанием программы!!!!

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

А где код , который написал ты и что не получилось сделать ?

[alex_fcsm]

Кусок основной

var
st:string;
Mn:set of char;
i,cntIn,cntOut:integer;

begin
readln(st);
writeln('-------------------------------------------');
Mn:=[];
cntIn:=0;
cntOut:=0;
for i:=1 to length(st) do
 begin
  if st[i] in Mn then inc(cntOut)
     else begin
            Mn:=Mn+[st[i]];
            inc(CntIn);
            write(st[i]);
           end;
 end;
 writeln('Удалено ',CntOut);
 writeln('Осталось'.CNTIN);
 end.

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

[klim4er]

ды нет у меня кода, а программа очень срочно нужна

[andrewpalkin]

Сообщение от klim4er

ды нет у меня кода, а программа очень срочно нужна

За срочность обычно платят

[klim4er]

блин, ребят!!!!! спасибо огромное, очень выручили!!!!=)))