Задан список из десяти городов. Подсчитать количество названий, в которых есть буква «Д» — Pascal(Паскаль)

program proga3;
Const n=3;
var mas:array [1..n] of string;
i,b:integer;
begin
  for i:=1 to n do
    begin
      writeln ('Введите город ',i);
      readln (mas[i]);
     end;
   b:=0;
   for i:=1 to n do
   begin
   if pos('Д',mas[i])=0 then b:=b+1;
   end;
   Write ('Кол-во городов с буквой Д=',b);
      end.