Структура: Найти работника с возрастом, попадающим в заданный диапазон

[AnnetC]

Запись с полями: ФИО работника; возраст; домашний адрес.
Найти работника с минимальным возрастом, попадающим в диапозон 20-30 лет.
Начало программы идет вот так:

Type 
rec=record 
FIO:string[30]; 
Vozr:integer; 
adress:string[30]; 
end; 
mas=array[1..10] of rec;
var
f: text;e1:integer;m:mas;

Procedure inp(var a:mas;var n:integer);{Процедура ввода} 
var i:integer; 
begin 
readln(n);
for i:=1 to n do 
begin 
readln(f,a[i].FIO); 
readln(f,a[i].Vozr); 
readln(f,a[i].adress);
end; 
end;  
Procedure ext(a:mas;n:integer); {Процедура вывода} 
var i:integer;
begin
for i:=1 to n do
begin
writeln(a[i].FIO);
writeln(a[i].Vozr);
writeln(a[i].adress);
end;
end;
Begin 
assign(f,'file.txt'); 
reset(f); 
inp(m,e1);
ext(m,e1);
end.

Самый главный вопрос как "Найти работника с минимальным возрастом, попадающим в диапозон 20-30 лет."
file.txt

[min@y™]

Массив тут нах не нужен. Всё делается в одном цикле чтения записей из файла.

[p51x]

Абсолютно также, как и в реальной жизни. Программирование это не какая-то магия. Ищем первого, у которого возвраст попадает в нужный диапазон. Берем его за текущий минимум. Далее проверяем остальных, если попадает в критерии и менбше текущего минимума, то запоминаем и т.д.

[Serge_Bliznykov]

Сообщение от AnnetC

var
f: text

простите, а почему файл текстовый, а не типизированный файл? в подобных задачах с типизированным работать - самое милое дело.

Сообщение от AnnetC

readln(n);
for i:=1 to n do 
begin 
readln(f,a[i].FIO);

Это никуда вообще не годится! Откуда пользователь может знать, сколько записей в вашем текстовом файле?! А если он их введёт неверно? Меньше, чем есть, тогда записи в конце файла не будут обработаны вообще. Введёт больше, чем есть, тогда будет ошибка чтения файла (невозможно прочитать из файла, если он закончился).
Это нужно переделывать.

решите эти проблемы.
тогда и найти работника с минимальным возрастом, попадающим в диапазон 20-30 лет, не составит труда.
Тем более, что Вам уже рассказали, как это сделать.
Если что-то непонятно - спрашивайте!