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

program chislo;
var    i,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.