Ошибка проверки диапазона при работе с типизированным типом файла

program Lab8;
uses crt;
type
    Pol = (man,woman);
             Tperson = record
             FIO : string [30];
             tall : 150..230;
             case S : Pol of
                  man :   (ves : 30..100; old : 15..30; sport : string [15]);
                  woman : (ob1,ob2,ob3 : 40..120; color : string [10]);
    end;
var
     fin : text;
     fout : file of Tperson;
     person : Tperson;
     fl : boolean;
begin
     repeat
           clrscr;
           assign (fin,'fin.txt');
                      reset (fin);
           assign (fout,'fout.dat');
           rewrite (fout);
           while not eof (fin) do
           begin
                with person do
                begin
                     read (fin,FIO,tall);
                     case S of
                          man   : readln (fin,ves,old,sport);
                          woman : readln (fin,ob1,ob2,ob3,color);
                     end;
                write (fout,person);
                end;
           end;
 
        
           fl:=true;
           reset (fout);
           read (fout,person);
           while not eof (fout) do
           begin
                if ((person.S=man) and
                   ((person.old=17) or (person.old=18) or (person.old=19)) and
                   (person.tall=195))
                     then
                     begin
                          Write (person.FIO);
                          fl:=false;
                     end;
                read (fout,person);
           end;
 
 
 
     until fl=false;
end.

read (fin,FIO,tall);

readln(f,s);