составить программу определяющую количеств элементов массива совпадающих с заданным числом Т

Program n1;const n=10;var a: array[1..n] of integer;i,k,t: integer;beginrandomize;write('введите T: ');readln(t);k:=0;writeln('исходный массив:');for i:=1 to n dobegina[i]:=random(15);write(a[i],' ');if a[i]=t then k:=k+1;end;writeln;writeln(k,' элементов совпадают с заданным числом');end.