Бинарные деревья

[sunny_alice]

Составить программу, которая выполняет следующие действия:
а) читает из файла, созданного по заданиям предыдущих работ, информацию о студентах и вносит ее в бинарное дерево;
б) обрабатывает этот список и выводит на экран список женатых студентов, упорядоченный по алфавиту.

Программа запускается, но ничего не выводит. Укажите, пожалуйста на ошибки. Похоже, что какие-то траблы с процедурой scantree(это сканирование дерева слева направо), но я никак не разберусь...
Заранее спасибо.

program lab5_2;
  uses crt;
  type tptr=^tnode;
       dat=record
              day:1..31;
              month:1..12;
              year:integer;
           end;
       student=record
                  fam:string[15];
                  name:string[10];
                  otch:string[15];
                  birth:dat;
                  pol:string[6];
                  math:2..5;
                  status:string[10];
               end;
       tnode=record
                data:student;
                left,right:tptr;
             end;
  var i,n:integer;
      treeroot:tptr;
      s:file of student;
      s1:student;

procedure addtree(var root:tptr; key:student);
begin
  if root=nil then
    begin
      new(root);
      root^.data.fam:=key.fam;
      root^.left:=nil;
      root^.right:=nil;
    end
  else
    if key.fam<root^.data.fam then
      addtree(root^.left,key)
    else
      if key.fam>root^.data.fam then
        addtree(root^.right,key);
end;

procedure scantree(root:tptr);
begin
  if root<>nil then
    begin
      scantree(root^.left);
      if root^.data.status='married' then
        begin
        write(root^.data.fam,' ':11-length(root^.data.fam),root^.data.name,' ':10-length(root^.data.name));
        write(root^.data.otch,' ':15-length(root^.data.otch));
        write(root^.data.birth.day:2,'/',root^.data.birth.month:2,'/',root^.data.birth.year:4,' ');
        writeln(root^.data.pol,' ':8-length(root^.data.pol),root^.data.math,' ':3,root^.data.status);
        end;
      scantree(root^.right);
    end;
end;

begin
  clrscr;
  assign(s,'student1.dat');

  reset(s);

  if (ioresult<>0) or (filesize(s)=0) then
    begin
      write('file not found or empty');
      readln;
      halt;
    end;

  treeroot:=nil;
  n:=filesize(s);
  for i:=1 to n do
    begin
      read(s,s1);
      addtree(treeroot,s1);
    end;

  scantree(treeroot);
  close(s);
  readln;

end.

Прикладываю просмотр самого файла, с записанной информацией.