Помогите!!!!!! Очень Срочно!!!!!!!!
Дан одномерный массив целых чисел. Найдите, сколько раз в нем повторяется число K.Заполните случайным образом.

vara: array [1..10] of integer;i, k, s: integer;beginwrite('K = ');readln(k);for i:=1 to 10 dobegina[i]:=random(11);writeln('a[', i, '] = ', a[i]);if a[i]=k then s+=1;end;write(k, ' повторяется ', s, ' раз')end.