Проблема с курсовой

[Danilyuk]

Кто может посмотрите!!! Нипонимаю в чем он находит ошибку

Unit trees;
INTERFACE
Uses Crt;   
Type
  pTree = ^Tree;              
  Tree = record               
    fio : string[40];        
    num : word;              
    pol : char;              
    dat : string[10];         
    adr : string[40];        
    gru : string[6];          
    left, right : pTree      
  end;                       
  CompF = record
    fio : string[40];
    num : word;
    pol : char;
    dat : string[10];
    adr : string[40];
    gru : string[6];
  end;                       
Procedure print(v : pTree);
Procedure add(var x : CompF; var p : pTree);
Procedure del(x : word; var p : pTree);
IMPLEMENTATION
procedure print(v : pTree);
begin                         
  if WhereY > 20 then        
    begin                     
      readkey;                
      clrscr                 
    end;
  with v^ do                 
    begin
      writeln('Фамилия:       ',fio);
      writeln('Номер зачетки: ',num);
      writeln('Пол:           ',pol);
      writeln('Дата рождения: ',dat);
      writeln('Адрес:         ',adr);
      writeln('Группа:        ',gru);
      writeln
    end;
end;
begin
  if p = nil then     
    begin                      
      new(p);                   
      Move(x,p^,SizeOf(CompF)); 
      with p^ do                
        begin
          left := nil;
          right := nil;
        end;
    end
  else                         
    if x.num < p^.num then    
      add(x,p^.left)          
    else
      if x.num > p^.num then   
        add(x,p^.right)        
      else                    
        begin
          writeln(#13#10'Ошибка! Такой номер уже есть!');
          readkey
        end
end;
Procedure del(x : word; var p : pTree);
var
  q : pTree;                   
  d : char;                    
  procedure delt(var r : pTree);
  begin
    if r^.right <> nil then        
      delt(r^.right)
    else
      begin                         
        move(r^,q^,SizeOf(CompF));  
        q := r;                     
        r := r^.left                
      end
  end;
begin
  if p <> nil then                  
    if x < p^.num then              
      del(x,p^.left)                
    else
      if x > p^.num then            
        del(x,p^.right)             
      else
        begin                       
          print(p);                 
          writeln('Удалить (Y/Д)? '); 
          d := readkey;
          if not (d in ['Y','y','Н','н','L','l','Д','д']) then
            begin
              writeln('Отмена удаления...');
              exit;
            end;
          q := p;                   
          if q^.right = nil then    
            p := q^.left            
          else
            if q^.left = nil then   
              p := q^.right         
            else
              delt(q^.left);        
          dispose(q);               
          writeln('Удален...');
        end
  else                              
    writeln('Введенный номер зачетки не найден...');
end;
BEGIN
END.

[merax]

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

[Danilyuk]

ВСЕМ СПАСИБО. Я НАШОЛ СВОЮ ОШИБКУ.

[puporev]

Да, целый заголовок процедуры пропустил.