Написать процедуру или функцию, которая определяет, входит ли элемент в дерево Т

{Найти кол-во вхождений элемента Е в дерево Т}
program pr6;
type
zap=record
  lastname:string;
  name:string;
  secname:string;
  math:integer;
  prog:integer;
  phys:integer;
end;
treeptr=^tree;
tree=record
  data:zap;
  left,right:treeptr;
end;
 
var
  top:treeptr;
  z:zap;
  fl:boolean;
  level,n,i,number,k:integer;
  lname,name,sn:string;
  math,prog,phys:integer;
function addtree(top:treeptr;newnode:zap):treeptr;
  begin
    if top=nil then
    begin
      new(top);
      top^.data:=newnode;
      top^.left:=nil;
      top^.right:=nil
    end
    else
      if top^.data.lastname>newnode.lastname then
        top^.left:=addtree(top^.left, newnode)
      else top^.right:=addtree(top^.right, newnode);
      addtree:=top;
  end;
procedure orgtree;
begin
  writeln('Процедура организации дерева');
  writeln('Выход-> символ "*" ');
  writeln('=============================');
  top:=nil;
  while true do
  begin
    writeln('Введите фамилию студента');
    readln(z.lastname);
    if z.lastname='*' then exit;
    writeln('Введите имя студента');
    readln(z.name);
    writeln('Введите отчество студента');
    readln(z.secname);
    writeln('Оценка по математике:');
    readln(z.math);
    writeln('Оценка по программированию:');
    readln(z.prog);
    writeln('Оценка по физике:');
    readln(z.phys);
    top:=addtree(top,z);
  end;
end;
 
procedure dobl;
begin
  writeln('Процедура добавления листа');
  writeln('Выход-> символ "*" ');
  writeln('=============================');
  writeln('Введите фамилию студента');
  readln(z.lastname);
  if z.lastname='*' then exit;
  writeln('Введите имя студента');
  readln(z.name);
  writeln('Введите отчество студента');
  readln(z.secname);
  writeln('Оценка по математике:');
  readln(z.math);
  writeln('Оценка по программированию:');
  readln(z.prog);
  writeln('Оценка по физике:');
  readln(z.phys);
  top:=addtree(top,z);
end;
 
procedure prosmotr(top:treeptr);
begin
  if top<>nil then
  begin
    prosmotr(top^.left);
    writeln(i,' ',top^.data.lastname,' ',top^.data.name,' ',top^.data.secname,' ',top^.data.math,' ',top^.data.prog,' ',top^.data.phys);
    i:=i+1;
    prosmotr(top^.right);
  end;
end;
 
function countin(lname:string;name:string;sc:string;math:integer;prog:integer;phys:integer;top:treeptr):integer;
begin
  Result:=0;
  if top<>nil then
  begin
    if (lname=top^.data.lastname) and (name=top^.data.name) and (sn=top^.data.secname) and (math=top^.data.math) and (prog=top^.data.prog) and (phys=top^.data.phys) then 
    Inc(Result);
    Result:=Result+countin(lname,name,sc,math,prog,phys,top^.left);
    Result:=Result+countin(lname,name,sc,math,prog,phys,top^.right);
  end;
end;
 
procedure otobr(top:treeptr;otstup:integer);
begin
  if top<>nil then
  begin
    otstup:=otstup+6;
    otobr(top^.right, otstup);
    writeln(' ':otstup, top^.data.lastname);
    otobr(top^.left,otstup);
  end;
end;
 
procedure nodecount(top:treeptr; level:integer; var n:integer);
begin
  if (level>=0) and (top<>nil) then
  begin
    if level=0 then n:=n+1;
    nodecount(top^.left, level-1,n);
    nodecount(top^.right, level-1, n);
  end;
end;
 
begin
  while true do
  begin
    writeln('1 - Организация двоичного дерева');
    writeln('2 - Добавление листа к дереву');
    writeln('3 - Просмотр дерева');
    writeln('4 - Подсчет кол-ва вхождение элемента Е');
    writeln('5 - Подсчет количества вершин на n-уровне');
    writeln('6 - Выход');
    writeln('------------------------------------------');
    writeln('Введите номер пункта меню');
    readln(number);
    case number of
      1:orgtree;
      2:dobl;
      3:begin
        writeln('Просмотр дерева');
        writeln('=================');
        i:=0;
        prosmotr(top);
        otobr(top,1);
        writeln('enter');
        readln();
      end;
      4:begin
        writeln('Подсчет количества вхождений элемента Е');
        writeln('========================================');
        writeln('Введите элемент Е');
        writeln('Введите фамилию:');
        readln(lname);
        writeln('Введите имя:');
        readln(name);
        writeln('Введите отчество:');
        readln(sn);
        writeln('Введите оценку по математике:');
        read(math);
        writeln('Введите оценку по программированию:');
        read(prog);
        writeln('Введите оценку по физике:');
        read(phys);
        k:=0;
        writeln(countin(lname,name,sn,math,prog,phys,top));
  
      end;
      5:begin
        writeln('Подсчет количества вершин на n-уровне');
        writeln('======================================');
        writeln('Введите значение уровня->');
        read(level);
        n:=0;
        nodecount(top, level, n);
        writeln();
        writeln('На уровне','',level,'','находится',n,'вершин');
        writeln('enter');
        readln();
      end;
      6:exit;
    end;
  end;
end.