Написать программу, которая вычисляет, сколько раз введенное с клавиатуры число встречается в линейном массиве из 10 случайных чисел. Pascal ABC

Var

a:array[1 ... 10] of integer;

b, i, k:integer;

begin

Randomize;

Write ('Введите количество элементов в массиве: ') ;

for i:=1 to 10 do

begin

a[i]:=Random (21) - 10;

Write (a[i],' ')

end;

Writeln;

Write ('Какое число искать? ') ;

Readln (b) ;

k:=0;

for i:=1 to 10 do

if a[i]=b then Inc (k) ;

Writeln ('Число встречается ', k,' раз')

end.