Дана символьная строка. Если какой-то символ встречается в ней более одного раза,…

Program p1; vara: string; i: integer; beginreadln (a); for i: =length (a) downto 2 dobeginif a[i]=a[i-1]then delete (a,i,1); end; writeln (a); end… . Ввел: asdfsssРезультат: asdfsЛибо я не знаю либо нужно подумать. Но символу нельзя присвоить число ему можно присвоить только символ.