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

[Eskel]

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

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

[Eskel]

спасибо, разобрался

[Гость]

А можно с текстового файла в котром имена и даті, взять человека которій имеет определённую дату? тоисть надо взять даті и с ними работать. тхт файл уже есть. интересуєт возожно ли такое.

[Гость]

вот типа написал, но что-то не то...

uses crt;
const n=10;
type  stud=record
      soname:string[15];
      year,month:integer
      end;
var F:text; St: string[35];
    c:stud;
begin clrscr;
assign(F, 'example.txt');
reset(F);
while not eof(F) do begin
readln(F, c.soname);
writeln(c.soname);
end;
readln(F);

while not eof(f) do
  with c do
  begin
 readln(f, c.month);
 if c.month=3 then
 writeln(c.soname:10, c.year:6);
 end;

writeln;
writeln('vivod s faila okon4en. to exit pres - Enter.');
readln;
end.

[Lapp]

вот типа написал, но что-то не то...

Да, явно не то. Второй цикп даже не начнется, так как EoF уже достигнуто.

Можно, конечно. Но нужно знать, как устроен этот текстовый файл. Приведи пример.

[Гость]

в задании про файл больше ничего не сказано, но я его делал так

Yurko 81 1
Pavlo 82 2
Sergey 83 3
Sashko 84 4