Считать с клавиатуры данные об n лицах и записать их в файл - PascalABC.NET

type
  data_rojd = record
    den: 1..31;
    mes: 1..12;
    god: 1920..2016;
  end;
  lico = record
    imea_familia: shortstring;
    data: data_rojd;
  end;
  spisok_person = file of lico;
 
var
  s: spisok_person;
  l: lico;
  str: shortstring;
  n: integer;
  i: integer;
 
begin
  writeln('введите имя файла');
  readln(str);
  assign(s, str);
  rewrite(s);
  
  writeln('введите количество лиц');
  readln(n);
  for i := 1 to n do 
  begin
    writeln('введите данные о лице', i);
    writeln('имя,фамилия: ');readln(l.imea_familia);
    writeln('дата рождения');with l.data do 
      readln(den, mes, god);
    write(s, l);
  end;
end.