[Pilot_Red]

Код:

var
s1,s2:string;
i:integer;
begin
s1:='1234';
s2:='3231';
for i:=1 to length(s1) do
if s1[i]=s2[i] then //здесь соответственно подсчеты
end;