Тема: Однакові символи
Мені треба з слова що вводить користувач знайти скільки однакових символів міститься в цьому слові..
Я думаю що перше треба порівняти чи є однакові символи в слові
program land_of_wonderful;
var
s, c: string[50];
z,i, j: integer;
begin
readln(s);
c:=s;
for i := 1 to length(s) do
begin
for j := 1 to length(s) do
begin
if s[j] = s[i] then
А що робити далі? Підкажіть, будь-ласка, словами..