Вывести количество элементов списка с числами равными α

uses crt;
type Ptr=^count;
     count=Record
           Key:integer;
           Next:ptr;
          end;
var p,q,first,l:ptr;
    n,i,a,k,kol:integer;
begin
randomize;
//создаем исходный список
repeat
write('Размер списка n>1 n=');
readln(n);
until n>1;
new(p);
first:=p;
p^.next:=nil;
p^.key:=1+random(10);
q:=p;
for i:=2 to n do
 begin
  new(p);
  p^.key:=1+random(10);
  p^.next:=nil;
  q^.next:=p;
  q:=p;
 end;
//выводим его на экран
writeln('Исходный список');
p:=first;
while (p<>nil) do
 begin
  write(p^.key,' ');
  p:=p^.next;
 end;
writeln;
write('Введите число для поиска a=');
readln(a);
//вставляем суммы цифр после элементов с четными номерами
p:=first;
kol:=0;
while p<>nil do
 begin
  k:=p^.key; //смотрим значение
  if k=a then //если = а
   begin
    kol:=kol+1;//считаем количество
    new(l);
    q:= p^.next;
    p^.next:=l;
    l^.next:=q;
    l^.key:=-a;//вставим -а;
    p:=l^.next;
   end
  else  p:=p^.next; //если не равно
 end;
//выводим полученный список
writeln('Количество элементов, равных ',a,'=',kol);
if kol>0 then
 begin
  writeln('Вставка чисел ',-a,' после чисел ',a);
  p:=first;
  while (p<>nil) do
   begin
    write(p^.key,' ');
    p:=p^.next;
   end;
 end
end.