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

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