Исправить ошибку в программе.

[Лександра]

Условия программы:
Даны два четырехзначных числа, необходимо найти количество совпадений
по две одинаковые цифры в равносильных разрядах чисел, а так же количество совпадений по две одинаковые цифры в различных разрядах этихчисел. Цифра, которая уже участвовала в одной паре совпадения, не учитывается повторно.
Например:
Дано: 1234
2735
Количество совпадений одинаковых цифр в равносильном разряде равно 1,
это цифра 3.
Количество совпадений одинаковых цифр в различных разрядах равно 1, это
цифра 2.
Код программы:

USES CRT;
VAR
P:BOOLEAN;
I,J,C,F,D,K:INTEGER;
A,B : ARRAY  [1..4] OF INTEGER;
BEGIN
WRITELN('Введите первое число');
READLN (C);
WRITELN('Введите второе число');
READLN (F);

A[1]:=C DIV 1000 ;
A[2]:=C DIV 100- 10*(C DIV 1000);
A[3]:=C DIV 10 - A[1]*100-A[2]*10;
A[4]:=C MOD 10;

B[1]:=F DIV 1000 ;
B[2]:=F DIV 100- 10*(F DIV 1000);
B[3]:=F DIV 10 - B[1]*100-B[2]*10;
B[4]:=F MOD 10;

FOR I:=1 TO 4 DO
BEGIN
P:=FALSE;
FOR J:=1 TO 4 DO
BEGIN
P:=FALSE;
IF A[I]=B[J] THEN
IF I=J THEN
BEGIN
//K:= K+1;
//P:= TRUE
ELSE
IF P=FALSE THEN
D:=D+1;
END;
END;
END;
WRITELN('Колличество совпадений в одинаковых разрядах = ', K)
WRITELN('Колличество совпадений в разных разрядах = ', D)
END.

[BDA]

uses
  crt;

var
  a, b: set of byte;
  c, d: integer;
  s1, s2, i, t1, t2: integer;

begin
  writeln('Input 2 numbers:');
  readln(c, d);
  a := [];
  b := [];
  s1 := 0;
  s2 := 0;
  for i := 1 to 4 do
  begin
    t1 := c mod 10;
    t2 := d mod 10;
    if t1 = t2 then
      inc(s1)
    else
    begin
      a := a + [t1];
      b := b + [t2];
    end;
    c := c div 10;
    d := d div 10;
  end;
  for i := 0 to 9 do
    if (i in a) and (i in b) then
      inc(s2);
  writeln('Count of bitwise matches: ', s1);
  writeln('Count of remaining matches: ', s2);
  readln;
end.