Ввести любых 5 чисел с клавиатуры. Определить сколько чисел ввели равных числу N. Паскаль

var i,j,x,nx - введенное число, i  - число с которым нужно сравнить, n - счётчик чиселn:=0;ReadLn (i); for j:=1 to 5 do beginReadLn (x); if x=i then n:=n+1;end;writeLn("N= "n)