Имеются сведения о датах рождения служащих учреждения.
а) Найти самого

а) Найти самого юного сотрудника.
const mi = 20;
type chel = record
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;family: string; //фамилия
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;age: integer nbsp;nbsp;nbsp;//возраст
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;end;
var i, kol, min: integer;
nbsp;nbsp;nbsp;nbsp;ch: array [1..mi] of chel;
Begin
nbsp;nbsp;//ввод количества служащих c проверкой спектра
nbsp;nbsp;repeat
nbsp;nbsp;nbsp;nbsp;write(Количество служащих (1.., mi, )? );
nbsp;nbsp;nbsp;nbsp;readln(kol)
nbsp;nbsp;until kol in [1..mi];
nbsp;nbsp;//ввод инфы о сотрудниках
nbsp;nbsp;for i := 1 to kol do
nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;writeln(Сотрудник ,i);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;write(Фамилия: );
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;readln(ch[i].family);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;write(Возраст: );
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;readln(ch[i].age)
nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;//определяем младшего
nbsp;nbsp;min := 1; //будем пока младшим считать самого первого
nbsp;nbsp;//цикл по остальным сотрудникам, если находится молодее, считаем его младшим
nbsp;nbsp;for i := 2 to kol do if ch[i].age lt; ch[min].age then min := i;
nbsp;nbsp;write(Младший посреди служащих: , ch[min].family);
nbsp;nbsp;readln
End.