.(Дана символьная строка. если какой-то символ встречается в ней более одного раза, первое вхождение этого символа оставить без измениния, второе заменить цифрой "2", третье-"3" и т. д.).

Program p1;
var
a:string;
i:integer;
begin
readln(a);
for i:=length(a) downto 2 do
begin
if a[i]=a[i-1]then delete(a,i,1);
end;
writeln(a);
end.

Ввел: asdfsss

Результат: asdfs

Либо я не знаю либо нужно подумать. Но символу нельзя присвоить число ему можно присвоить только символ.