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

program zz1;
var a,n,i,k:integer;
begin
write(Введите заданное число n);
readln(n); //вводим число n с клавиатуры
for i:=1 to 5 do
begin
read(a); //вводим с клавиатуры любые 5 чисел
if a=n then k:=k+1; //проверяем, если введенное с клавиатуры число одинаково n, то считаем его
end;
write(количество введенных с клавиатуры чисел одинаковых n - ,k); //выводим ответ
end.