function check2 (str1,str2:string):boolean;
 var i,j,count,count2:integer;

begin
   i:=1;
   result:=true;
   while (i<=length(str2)) and result  do
      begin
        count:=0;
        for j:=1 to length(str2) do
            if str2[i]=str2[j] then
                inc(count);
         count2:=0;
        for j:=1 to length(str1) do
            if str2[i]=str1[j] then
                inc(count2);
       writeln(count,count2);
       result:= count=count2;
       inc(i);
       end;
 end;