Как подсчитать количество чисел, равных заданному Т ? - Pascal

Формулировка задачи:

Как подсчитать количество чисел, равных заданному Т ?

И в чём тут ошибка помогите пожалуйста ?

program cal;{Вычислите сумму неотрицательных чисел, стоящих на местах, кратных 3, 
и подсчитать количество чисел, равных заданному Т.}
const
  n = 100;
 
type
  tyt = ^massiv;
  massiv = array [1..n] of integer;
 
var
  sum, Sz, i,j, k, t: integer;
  a: tyt;
 
begin
  new(a);
  writeln('Введите исходный массив');
  readln(Sz);
  writeln('Массив:');
  for i := 1 to Sz do 
  begin
    a^[i] := random(100);
    write(a^[i]:4); 
    if (i mod 3 = 0) and (a^[i] >= 0) then 
    sum := sum + a^[i];
    if t=Sz then t:=t+Sz;
  end;
  Writeln;
  write('Введите T:');
  readln(t);
  Writeln('Сумма неотрицательных чисел, стоящих на местах, кратных 3:', sum);
  Writeln('Количество чисел, равных заданному Т:', t);
end.

Решение задачи: «Как подсчитать количество чисел, равных заданному Т ?»

Листинг программы

Program cal;{Вычислите сумму неотрицательных чисел, стоящих на местах, кратных 3, 
и подсчитать количество чисел, равных заданному Т.}
const
  n = 100000;
type
 tyt=^massiv;
 massiv=array [1..n] of integer;
var
  sum, Sz, i, k,t: integer;
  a:tyt;
begin
  new(a);
  writeln('Введите исходный массив');
  readln(Sz);
  write('Введите T:');
  readln(t);
  writeln('Массив:');
    for i := 1 to Sz do      
  begin
    a^[i] :=random(1000);
    write(a^[i]:4); 
    if (i mod 3 = 0) and (a^[i] >= 0) then 
      sum := sum + a^[i];
            if a^[i] = t then 
      inc(k);
  end;
  Writeln;
  Writeln('Сумма неотрицательных чисел, стоящих на местах, кратных 3:', sum);
   Writeln('Количество чисел, равных заданному Т:', k);
end.

Объяснение кода листинга программы

Объявлены константы и переменные:
- n = 100000 - размер массива
- t - переменная для ввода искомого числа
- sum, Sz, i, k - счетчики для подсчета суммы и количества чисел
- a - указатель на динамический массив
Создается динамический массив размером n
Задается размер массива в переменной Sz
Вводится искомое число Т
В цикле выводятся элементы массива, при этом проверяется условие:
- i mod 3 = 0 - элемент находится на позиции, кратной 3
- a^[i] >= 0 - элемент неотрицательный
- если условие выполняется, к сумме sum прибавляется значение элемента и увеличивается счетчик k, если элемент равен Т
Выводится сумма неотрицательных чисел, стоящих на местах, кратных 3 - sum
Выводится количество чисел, равных заданному Т - k