Расшифровка анаграмм

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <iostream>
char ar[][15] = {
    "robo",
    "kert",
    "abaci",
    "abaka",
    "abada",
    "svinopas",
};
int main()
{
    int pr = 0;
    int ko = 0;
    char a[15];
    scanf("%s", a);
    int n = strlen(a);
    //printf("%d", n);
    for (long int i = 0; i < 20; i++) { // Vrybaem perebor vseh elementov massiva c dannimi 4islami
        if(strlen(ar[i]) == n) {
            for(int k = 0; k < n;k++){// Perebiraem vse simvoli massiva
                for(int j = 0; j< n;j++){ // Opyat' perebiraem
                    if(ar[i][j] == a[k]) { //Proverayem simvoli oboih slov na sovpadenie
                        pr++; // Plysyem 1  v sly4ae sovpadenia
                    }
                }
                
            }
            //printf("%d\n", pr);
            for(int c = 0 ; c < strlen(a); c++) {
                for(int b = 0; b < strlen(a) ;b++) {
                    if(a[c] == a[b]) ko++; // S4itivaem sovpadenia v dannom slove
                }
                //printf("%d\n", ko);
            }
            //printf("%d\n", ko);
            ko -=strlen(a); // Vi4itaem dliny slova, tk v lubom sly4ae eto sovpadet
            pr-=ko; // vi4itaem ostaok i poly4aem dliny slova.
            ko = 0; // obnylaem, dabi prodoljit' cikl
            if(pr == n) { // proveryaem sovpadaet li dlina slova s dannim 4islom
                printf("%s\n",ar[i]);  // Vivodim poly4enoe 4islo
            }
            pr = 0; // obnylaem, dabi prodoljit' cikl
        }
    }
    
}

#include <string.h>
#include <stdio.h>
#include <stdlib.h>
int main()
{
    char a[15];
    scanf("%s", a);
    int pr = 0;int lo = 0;
    for(int i = 0; i < strlen(a); i++) {
        for(int k = 0; k < strlen(a); k++) {
            if(a[k] == a[i]) pr++;
        }
    }
    lo = pr;
    printf("%d\n", pr);
    lo-= strlen(a);
    printf("%d\n", pr-lo);
}