Variant_8

program Variant_8;

var
  K: array [1..10] of string;
  N, i, count: integer;

begin
    // Заполняем массив
    for i:=1 to 9 do
    begin
        Write('a[', i, ']:');
        ReadLn(K[i]);
    end;

    Write('N: ');
    ReadLn(N);

    // Подсчитываем кол-во слов длиной больше N
    for i:=1 to 9 do
      if length(K[i]) > N then count := count + 1;

    WriteLn(count);
end.