Бинарные деревья, Компилятор находит ошибку, не знаю как её исправить Опции

[Катерина]

Вот эта прога: (Показать/Скрыть)

Program TreeProcess;
Uses Crt;
Type
  rabotnik=record {Описание записи о сотруднике}
   number:integer;
   FIO:string[15];
   godroj:integer;
   pol:char;
   cem:string[15];
   koldet:integer;
   oklad:integer;
  end;
  TreePtr=^Tree; {Описание узла дерева}
  Tree=record
   data:rabotnik;
   left,right:TreePtr
  end;
  rab=file of rabotnik;
Var
 Top:TreePtr;
 r:rabotnik;
 f:rab;
 n,i:Integer;
{================ФУНКЦИЯ ДОБАВЛЯЮЩАЯ ЛИСТ К ДЕРЕВУ============}
Function AddTree(Top:TreePtr;Newnode:rabotnik):TreePtr;
Begin
 If Top=Nil then
  begin
   New(Top);
   Top^.data:=Newnode;
   Top^.left:=nil;
   Top^.right:=nil;
  end
 else
  If Top^.data.FIO>Newnode.FIO then
   Top^.left:=AddTree(Top^.left,Newnode)
  else
   Top^.right:=AddTree(Top^.right,Newnode);
 AddTree:=Top
End;

{=============ПРОЦЕДУРА ОРГАНИЗАЦИИ ДЕРЕВА====================}
Procedure OrgTree;
Begin
 writeln('Выполняется процедура организации дерева');
 Readln;
 Reset(f);
 Top:=Nil;
 while not eof(f) do
  begin
   read(f,r);
   Top:=AddTree(Top,r);
  end;
End;


{=============ПРОЦЕДУРА ОТОБРАЖЕНИЯ СТРУКТУРЫ ДЕРЕВА==========}
Procedure Prosmotr(Top:TreePtr); {значения узлов дерева просматриваются}
                                 {слева направо}
Begin
 if Top<>Nil then
  begin
   Prosmotr(Top^.left);
   with Top^.data do
    writeln(number:4,' ',FIO:15,' ',godroj:6,' ',pol:3,' ',cem:15,' ',
            koldet:7,' ',oklad:5);
   i:=i+1;
   Prosmotr(Top^.right);
  end;
End;



{====ФУНКЦИЯ ОПРЕДЕЛЯЮЩАЯ ЧИСЛО ВХОЖДЕНИЙ ЭЛ-ТА В ДЕРЕВО======}
Procedure KolE(Root:TreePtr;n:Integer;Node:rabotnik);
Begin
 Reset(f);
 writeln('Введите элемент');
 Read(f,r);
 Node:=r;
 n:=0;
 while Root<>Nil do
  if Root^.data=Node then {Здесь выдаёт ошибку про несовпадение типов для данного оператора}
   n:=n+1;
 KolE(Root^.left,n,Node);
 KolE(Root^.right,n,Node);
 writeln('количество элементов равно',n);
 Close(f);
End;

{====================ОСНОВНАЯ ПРОГРАММА========================}
Begin
 Assign(f,'C:\derevo.dat');
 repeat
 ClrScr; {Очистка экрана}
 writeln('1-Организация двоичного дерева');
 writeln('2-Просмотр дерева');
 writeln('3-Количество вхождений эл-та в двоичное дерево');
 writeln('4-Выход');
 writeln('------------------------------');
 writeln('Нажмите клавишу от 1 до 4');
 key:=readKey; {Считывание кода нажатой клавиши}
 case key of   {Вызов необходимой процедуры по номеру}
  '1':OrgTree;
  '2':Begin
       writeln('Выполняется процедура просмотра дерева');
       writeln;
       i:=0;
       writeln('N':4,' ','FIO':15,' ','godroj':6,' ','pol':3,' ','cemeunoe_poloj':15,' ',
            'kol_det:7,' ','oklad':5);
       Prosmotr(Top);
       readln;
      end;
  '3':
 end;
 until key='4'; {Выход из программы}
End.

ПОМОГИТЕ!!!!!!!!!!!! Я не знаю,как исправить мою ошибку...

[volvo]

Компилятор находит ошибку, не знаю как её исправить

Все правильно находит... Ты здесь:

 while Root<>Nil do
  if Root^.data=Node then ... 

пытаешься сравнивать переменные типа Rabotnik, а компилятор этого делать не умеет. Придется тебе писать свою функцию сравнения:

Function isEqual(first, second: Rabotnik): Boolean;
Begin
  ...
  {
    Здесь - сравнивай записи по какому-то нужному тебе критерию,

    если запись first по этому критерию равна записи second,
    то вернуть True, иначе False
  }
End;

И вместо

If Root^.data = Node Then

делать

If isEqual(Root^.Data, Node) Then

Кстати, у тебя там ниже по тексту есть еще ошибки...

[Катерина]

Кстати, у тебя там ниже по тексту есть еще ошибки...

Это где такие?

[volvo]

Скомпилируешь - увидишь... Вот тут, например:

{ ОСНОВНАЯ ПРОГРАММА }
  ...
  key:=readKey; {Считывание кода нажатой клавиши}
  ...

А где этот самый Key определен?

Ну, и лишний апостроф в строке вывода на печать...

[Катерина]

А... у если такие, то это не проблема... Был у меня где-то этот key...
Спасибо большое!!!!!

[Гость]

Я тут кой-чего наделала:

{========ФУНКЦИЯ ДЛЯ СРАВНЕНИЯ ЭЛЕМЕНТОВ ДЕРЕВА=================}
Function Sravn(first,second:rabotnik):Boolean;
Var j:Integer;
Begin
  Reset(f);
  while not eof(f) do
   For i:=filesize(f)-1 downto 1 do
    For j:=0 to i-1 do
     Begin
      Seek(f,j);
      Read(f,first,second);
      if first.number=second.number then
       Sravn:=True
       else Sravn:=False;
     end;
End;
{====ПРОЦЕДУРА ОПРЕДЕЛЯЮЩАЯ ЧИСЛО ВХОЖДЕНИЙ ЭЛ-ТА В ДЕРЕВО======}
Procedure KolE(Root:TreePtr;n:Integer;Node:rabotnik);
Begin
 Reset(f);
 writeln('Введите элемент');
 Read(f,r);
 Node:=r;
 n:=0;
 while Root<>Nil do
  if Sravn(Root^.data,Node) then
   n:=n+1;
 KolE(Root^.left,n,Node);
 KolE(Root^.right,n,Node);
 writeln('количество элементов равно',n);
 Close(f);
End;

Хотелось бы верить, что правильно,но это не так... Программа стопорится! Что опять не так?