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

@Pascal-_-Killer · Регистрация: 15.03.2016

Друзья! Никак не могу понять, отчего в файл записываются лишь фамилия и имя...

Pascal

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.

@capricornus CF · 15.03.2016, 23:09

Сообщение от Pascal-_-Killer

Pascal

34	write(s, l);

именно потому и пишется

Опции темы