[boxep]

Помогите найти наименьшее число в файле....что то я запутался и у меня выдаёт ахинею
вот код

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;

[boxep]

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

[lmikle]

Правильно. В условии знак на другой поменяй.

[boxep]

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

Правильно. В условии знак на другой поменяй.

А тогда "0" почему-то получается? не понимаю почему?

[boxep]

Спасибо огромное, разобрался! удалил строчку min:=stud.age; и всё заработало.

[boxep]

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;

А как потом когда я нашёл наименьший возраст ученик, сделать так что бы показало его фамилию? Как у переменной узнать какой фамилии принадлежит наименьший возраст?