Помогите найти наименьшее число в файле....что то я запутался и у меня выдаёт ахинею
вот код
Цитата:
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;
|