Одномерный массив. pascal. дан целочисленный одномерный массив, сформированный случайными числами от 0 до 50. подсчитайте, сколько раз встречается в этой таблице число, заданное пользователем.

Program gt;
vat a:array[1..60]of integer;
n,i,k,b:integer;
begin
randomize;
writeln('Задайте размер массива');
read(n);
k:=0;
writeln('Задайте число');
read(b);
for i:=1 to n do
begin
a[i]=random(50);
if(a[i] = b)then k:=k+1;
end;
writeln(k);
end.