Расшифровать ребус, полученный в результате замены одинаковых букв одинаковыми цифрами. Free pascal.

[avatar54]

Расшифровать ребус, полученный в результате замены одинаковых букв
одинаковыми цифрами. Найти также такие значения цифр, при которых сумма цифр в результате окажется наибольшей

КОТ+КОТ+КОТ+КОТ=УСЫ

Что бы получилось аналогично как в этом примере: (шлак+шлак+шлак=блок)

CONST D=10;
  TYPE CIPFER=0..9;
  VAR A,P2,P4,PR,O,L,L1,S,FLAG: CIPFER;
      K,P1,P3,B,SLAK,BLOK: INTEGER;
BEGIN
 K:=0; FLAG:=0;
 REPEAT
  PR:=K*3 DIV D;
  FOR A:=0 TO 9 DO
   IF A<>K THEN
    BEGIN
     P1:=A*3+PR; P2:=P1 DIV D; O:=P1 MOD D;
     IF(O<>A) AND (O<>K) THEN
       FOR L:=0 TO 9 DO
        IF (L<>O) AND (L<>A) AND (L<>K) THEN
         BEGIN
          P3:=L*3+P2; P4:=P3 DIV D; L1:=P3 MOD D;
          IF L1=L THEN
           FOR S:=1 TO 3 DO
            IF (S<>L) AND (S<>A) AND (S<>O) AND (S<>K) THEN
             BEGIN
              B:=S*3+P4;
              IF(B<D)AND(B<>L)AND(B<>A)AND(B<>O)AND(B<>K) THEN
                BEGIN SLAK:=S*1000+L*100+A*D+K;
                      BLOK:=B*1000+L*100+O*D+K;
                      WRITE (SLAK:5,'*3=',BLOK:5,'  ');
                      INC(FLAG);
                      IF FLAG>3 THEN
                       BEGIN WRITELN; FLAG:=0
                       END;
                END;
             END;
     END;
    END;
    K:=K+5
 UNTIL K>5
END.

[Аватар]

кросспост
http://www.programmersforum.ru/showthread.php?t=304462