vars1,s2:string;i, count:integer;begincount:=0;s1:='1234';s2:='3231';for i:=1 to length(s1) doif s1[i]=s2[i] then count:=count=1;end;