Задача по файлам 2.0 Опции

[Eskel]

type Person = record Name : string [10]; age : 1..200 end; List = file of person; Процедура Youngest(var spisok : list) Вашей программы печатает Name для всех людей файла spisok , возраст которых равен минимальному. Перед списком печатается этот возраст.

=>Не подскажите, как создать и забить запись в файл. Создать то я понял как, а с файлом не очень...
=> И как потом считать эту запись с файла на проверку возраста?

[Ozzя]

забить запись в файл.

var
q: Person;
...
write(list,q);
...

[Lapp]

Ozzя предельно немногословен..

type
  tAge=1..200;
  tPerson=record
    Name: string[10];
    Age: tAge;
  end;

var
  q: tPerson;
  f: file of tPerson;
...
  Assign(f,'spisok');
  ReWrite(f);
...
  write(f,q);
...
  Close(f);
...
  ReSet(f);
  MinAge:=High(tAge);
  while not EoF(f) do begin
    Read(f,q);
    if q.Age<MinAge then MinAge:=q.Age;
  end
  ReSet(f);
  WriteLn(MinAge);
  while not EoF(f) do begin
    Read(f,q);
    if q.Age=MinAge then WriteLn(q.Name);
  end
...

[/quote]