[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;

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

[boxep]

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

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

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

[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;