Написать подпрограмму подсчета количества элементов в круговом однонаправленном списке

uses
  Crt;
 
type
  
  List = ^Zveno;
  Zveno = Record
    next: List;
    info: integer;
  End;
 
var
  begs, ends: List;
 
procedure Add(var begs, ends: List; m: integer);
begin
  if begs = nil then
  begin
    new(begs);
    ends := begs;
    ends^.Next := begs;
    begs^.info := m;
  end
    else
  begin
    new(ends^.Next);
    ends := ends^.Next;
    ends^.Info := m;
    ends^.Next := begs;
  end;
end;
 
procedure Show(begs: List);
var
  tmp: List;
begin
  if begs = nil then
  begin
    writeln('Список пуст');
    readln;
    Exit;
  end;
  tmp := begs;
  repeat
    write(tmp^.info, ' ');
    tmp := tmp^.next;
  until begs = tmp;
  writeln;
end;
 
function Count(begs: List): integer;
var
  tmp: List;
  k: integer;
begin
  k := 0;
  tmp := begs;
  repeat
    k := k + 1;
    tmp := tmp^.next;
  until begs = tmp;
  Count := k;
end;
 
procedure Clear(var begs, ends: List);
var
  tmp: List;
  i: integer;
begin
  for i := 1 to Count(begs) do
  begin
    tmp := begs;
    begs := begs^.next;
    Dispose(tmp);
  end;
  begs := nil;ends := nil;
end;
 
begin
  Add(begs, ends, 100);
  Add(begs, ends, 254);
  Add(begs, ends, 18);
  Add(begs, ends, 67);
  Add(begs, ends, 10);
  Show(begs);
  writeln('Элементов с списке = ', Count(begs));
end.