Проблема с ошибкой "Чтение после конца потока невозможно"

program pr11;
uses Crt;
type person = record
name: string[10];
age: 1..200;
end;
list = file of person;
var input: list;
n: byte;
procedure Youngest(var f: list);
var chel: person;
begin
while not Eof(f) do
begin
read(f,chel);
if chel.age = n then
writeln(chel.name);
end;
end;
begin
assign(input,'young.txt');
reset(input);
ClrScr;
write('Vvedite min vozrast: ');
readln(n);
writeln('Imena liydei ', n, ' -letnego vozrasta: ' );
Youngest(input);
close(input);
readln;
end.

program pr11;
type person = record
  name: string[10];
  age: 1..200;
end;
list = file of person;
var 
  f: list;
  fname: string;
  one:person;
begin
  WriteLn('Укажите имя создаваемого файла:');
  Readln(fname);
  if (fname='') then begin
      WriteLn('Пустое имя - выходим из программы.');
      Exit
  end;
  if FileExists(fname) then begin
      WriteLn('Файл существует. Перезаписывать не будем. Выходим из программы.');
      Exit
  end;
  Assign(f, fname);
  Rewrite(f);
  repeat
     WriteLn('Введите ФИО (пустая строка - выход из программы):');
     ReadLn(one.name);
     WriteLn('Введите возраст (целое число от 1 до 200):');
     ReadLn(one.age);
     if one.name<>'' then Write(f, one);
  until  one.name='';
  Close(f);
  WriteLn('Готово!')
end.