chitcom.pas

{
    getMsgPrice(a, b)
    a - строка букв для пойска
    b - общее сообщение 
}
program chitcom;
function getMsgPrice( a, b: string ): integer;
var
    count, i, j: integer;
begin
    count := 0;

    i := 1;
    while i <= length( a ) do
    begin

	    j := 1;
	    while j <= length( b ) do
	    begin

	        if ( a[i] = b[j] ) and 
	           ( a[i] <> chr(208) ) and ( a[i] <> chr(209) ) and 
	           ( b[j] <> chr(208) ) and ( b[j] <> chr(209) ) then
	        begin
		    count := count + 1
	        end;
	        j := j + 1

	    end;
	    i := i + 1

    end;

    getMsgPrice := count
end;

var
    p: integer;
begin
    if ParamCount() < 2 then
    begin
        writeln( 'Error Input: no arguments' );
        halt( 1 )
    end;

    p := getMsgPrice( ParamStr(1), ParamStr(2) );
    writeln( p )
end.