type
  str =packed array [1..10] of char;
  list = ^node;
  node = record
    elem: str;
    next: list
  end;

function number(L: list): integer;
var
  k: integer;
  p: list;
begin
  k := 0;
  while(L <> nil) do
  begin
    if L^.elem[1] = L^.elem[10] then k := k + 1;
    L := L^.next;
  end;
  number := k;
end;