напишите программу которая вычисляет Как узнать сколько раз введенное с клавиатуры число встречается в массиве который нужно ввести с клавиатуры в строчку ( в pascal)

program chislo;
vari,n,x,v : integer;
 a : array [1..100] of integer;
begin
 writeln('введите количество элементов n :');
 readln(n);
  writeln('введите массив');
   for i:=1 to n do
   read(a[i]);
   writeln('введите число');
   readln(x);
   v:=0;
    for i:=1 to n do
        if (a[i] = x) then v:=v+1;
    writeln('встречается ',v);
end.