Ответ:

var  

a: array [1..100,1..2] of string;

i,n,count:integer;

x:string;

begin

writeln('Сколько человек будем вводить?');

readln(n);

for i:=1 to n do

begin

writeln('Введите фамилию');

readln(x);

if x='Никитский' then count+=1;

a[i,1]:=x;

writeln('Введите имя');

readln(x);

a[i,2]:=x;

end;

writeln('Фамилия Никитский встретилась столько раз -'count);

end.

Объяснение:

Переменные: a - наш двумерный массив

i - счётчик цикла и индекс строки, куда мы записываем наши данные

n - количество записей

x - принимает то, что вводит пользователь

count - счётчик нахождений фамилии Никитский

Суть решения: сначала спрашиваем пользователя, сколько человек он хочет ввести. Наш максимум на данный момент 100, если хотим увеличить количество, то нужно в коде во второй строке переписать на: a: array [1..СКОЛЬКО ХОТИМ ЗДЕСЬ,1..2] of string;

После чего пользователь начинает вводить фамилию и имя через диалог. При этом, когда пользователь вводит фамилию Никитский, то счётчик count прибавляется на 1