Цитата:
rocedure TForm1.AvarageClick(Sender: TObject);
var stud:Tstudent;
min,sum:integer;
begin
seek(F,0);
min:=stud.age;
while not eof(F) do
begin
read(F,stud);
if min>stud.age then
min:=stud.age;
end;
Label4.Caption:=FloatToStr(Min);
end;
|
А как потом когда я нашёл наименьший возраст ученик, сделать так что бы показало его фамилию? Как у переменной узнать какой фамилии принадлежит наименьший возраст?