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

var i,k,n: integer;     a: array[1..10] of integer; begin   k:=0;    randomize;   writeln('число:  '); readln(n);   writeln('последовательность из 10 элементов');   for i:=1 to 10 do   begin     a[i]:=random(50);     write(a[i],' ');     if a[i]=n then k:=k+1;   end;   writeln;   if k>0 then       writeln('число ',n,' встречается ',k,' раз')   else       writeln('числа ',n,' нет в последовательности');   readln; end.