Ввод из файла данных для массива структур

uses crt;
type Worker=record
            fio:string[20];
            dlz:string[20];
            god:word;
            end;
var f:text;
    g:file of Worker;
    sp:array[1..50]of Worker;
    stz,k:byte;
    s:string;
    i,n,t,c:integer;
begin
clrscr;
assign(f,'text.txt');
reset(f);
assign(g,'text1');
rewrite(g);
n:=0;
while not eof(f)do
  begin
   n:=n+1;
   readln(f,s); //читаем строку из файла
   writeln(s); {если надо выводить на экран, иначе убрать}
   sp[n].fio:=copy(s,1,pos('. ',s)); //записываем до конца инициалов(точка с пробелом)
   delete(s,1,pos('. ',s)+1);  //удаляем это
   sp[n].dlz:=copy(s,1,pos(' ',s)-1); //записываем до следующего пробела
   delete(s,1,pos(' ',s));  // удаляем
   val(s,t,c);  //остаток строки преобразуем число
   sp[n].god:=t;  //записываем год
   write(g,sp[n]);  //заносим запись в типизированный файл
  end;
reset(g);  //открываем его для чтения
write('Введите стаж для запроса:');
readln(stz);
k:=0; //считаем что нужных фамилий нет
for i:=1 to n do
read(g,sp[i]);  //считываем данные из файла в массив
for i:=1 to n do
if 2008-sp[i].god>stz then //если текущий год – год поступления > запрашиваемого стажа
   begin
     k:=1; //фамилии есть
     writeln('Фамилия: ',sp[i].fio,'   Стаж: ',2008-sp[i].god); //выводим фамилию и стаж
   end;
if k=0 then writeln('Таких работников нет.');
readln
end.