[Karsh]

запоминай фамилию во временную переменную

Код:

rocedure TForm1.AvarageClick(Sender: TObject);
var stud:Tstudent;
min,sum:integer;
name: string;
begin
seek(F,0);
min:=stud.age;
while not eof(F) do
begin
read(F,stud);
if min>stud.age then
begin
min:=stud.age;
name:= stud.name;
end;
end;
Label4.Caption:= FloatToStr(Min) +#13#10 + name;
end;