Описать процедуру СамыеМолодые(гр), печатающую имена всех людей из непустой группы Гр, имеющих наименьший возраст

Type человек=record
                     имя:string
                     возраст:integer;
                   end;
      группа=file of человек;

const
   Yes = ['Y', 'y', 'Н', 'н'];
  No = ['N', 'n', 'Т', 'т'];
  YesOrNo = Yes + No;
 
type
 
TSet = set of char;
 
  Tperson = record
   Name: string[50];
   Age: integer;
  end;
 
TGroup = file of TPerson;
 
 
 
//******************************************************************
 
procedure Input_Person(var Person: TPerson);
begin
  with Person do
    begin
      writeln;
      write('Имя: ');
      repeat
        readln(Name);
      until Name <> '';
      write('Возраст: ');
      repeat
        readln(Age);
      until Age in [2..5];
    end;
end;
 
//****************************************************************
 
function InputQuery(Prompt: string; EnabledChars: TSet): char;
 begin
   writeln(Prompt);
   repeat
     readln(result)
   until result in EnabledChars;
 end;
 
//*****************************************************************
 
procedure Write_Person(var ft: TextFile; Person: TPerson);
begin
  with Person do
    begin
      writeln;
      writeln(ft, 'Имя: ',Name);
      writeln(ft, 'Возраст: ',Age);
    end;
end;
 
//*******************************************************************
 
procedure Append_File(var f: TGroup; var fname: string);
 var Person: TPerson;
 
  begin
    if fname = '' then writeln('Файл не открыт. ')
                  else
                   begin
                     Reset(f);
                     repeat
                      Input_Person(Person);
                      Seek(f, FileSize(f));
                      write(f, Person);
                      writeln('Запись добавлена. ');
                      writeln;
                     until InputQuery('Хотите добавить еще? ', YesOrNo) in No ;
                     CloseFile(f);
                   end;
  end;
 
//******************************************************************
 
 function Read_File_Name(Prompt: string; var FileName: string): boolean;
 var fn: string;
  begin
 
    write(Prompt, ' (пустая строка - отмена) : ');
    readln(fn);
    fn := Trim(fn);
    result := true;
    if fn = '' then result := false
               else FileName := fn
 
  end;
 
//********************************************************************
 
procedure Create_New_File(var f: TGroup; var FileName: string);
var fn: string; OK: boolean;
 begin
  OK := false;
   if Read_File_Name('Введите имя нового файла', fn) then
    if FileExists(fn) then
     if InputQuery('Файл с таким именем уже существует на диске. Вы хотите заменить его?', YesOrNo) in Yes
      then OK := true
     else writeln('Файл не будет заменен.')
    else {Такого файла нет} OK := true;
  if OK then
         begin
           AssignFile(f, fn);
           Rewrite(f);
           CloseFile(f);
           FileName := fn;
           if InputQuery('Хотите сразу добавить информацию в файл? ', YesOrNo) in Yes then
                                                                                       begin
 
                                                                                        Append_File(f, FileName)
                                                                                       end
           else writeln('Файл создан. ')
         end;
 
 
 end;
 
 //*************************************************************************
 
 procedure Print_Information(var f: TGroup; var FileName: string);
  var result, Person: TPerson;
   begin
     Reset(f);
     result.Age := maxint;
     while not eof(f) do
      begin
        read(f, Person);
        if Person.Age < Result.Age then Result := Person
      end;
   Write_Person(output, person);
   readln
  end;
 
//****************************************************************************
 
procedure Menu(var item: integer);
const
  MaxItem = 3;
 
 begin
  writeln;
  writeln('Выберите какой-либо пункт меню:');
  writeln;
  writeln('1 - Создать новый файл;');
  writeln('2 - Добавление данных в файл;');
  writeln('3 - Получить информацию (решение задачи);');
 
   writeln('0 - Выход;');
   writeln;
   write('Ваш выбор: -> ');
 
  repeat
    readln(Item);
    writeln;
  until Item in [0..MaxItem];
 
end;
 
//***********************************************************************
 
var item: integer; myfile: TGroup; FileName: string;
 
begin {main}
 
 repeat
    Menu(item);
    case item of
      1: Create_New_File(myfile, FileName);
      2: Append_File(myfile, FileName);
      3: Print_Information(myfile, FileName);
      0: begin
          writeln('Программа завершает свою работу');
          readln
      end;
    end;
  until item = 0;
 
end.