Напишите программу в паскале: дано 2 строки. сосчитать количество символов в первой строке, которых нет во второй.

Var
  s1,s2 : String;
  n,i : Integer;
Begin
  n:=0;
  Readln(s1);
  Readln(s2);
  For i:=1 to Length(s1) do If Pos(s1[i],s2)=0 then Inc(n);
  Writeln(n);
end.