Помогите с задачей, Записи в Паскале Опции

[егорка]

Условие: Дан файл содержащий записи об именах и возрасте некоторой группы людей. Напечатать имена людей имеющих наименьший возраст

[егорка]

program laba11;
type spisok=record
     imya:string[10];
     vozr:byte;
     end;
var f:text;
    n,i:integer;
    lydi:spisok;
begin
assign (f,'f.txt');
rewrite (f);
writeln('введите количество людей');
readln(n);
 for i:=1 to n do
  with lydi do
  begin
   writeln('имя');
   readln (imya);
   writeln ('возраст');
   readln (vozr);
  write (f,imya);
  write (f,vozr);
  end;
 close (f);
end.

я создал файл, а как вывести их в алфавитном порядке я не пойму!

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

М

Используем теги