Файлы. Вывести информацию о самой молодой команде

[vitaly38]

Добрый день, уважаемые форумчане.
Прошу помощи в решении следующей задачи.


Информация об участниках спортивных соревнований содержит:
название команды, фамилию игрока и возраст. Вывести информацию о самой молодой команде.


Вот мой код

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls;
 
type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
 
  type com=record
  naz,fam:string[30];
  vozr:integer;
    end;
 
var
  Form1: TForm1;
   f:file of com;
    w:com;
    zak:boolean;
    ft:textfile;
    fname, fnamet:string;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
  begin
    w.naz:=edit1.Text;
    w.fam:=edit2.text;
    w.vozr:=StrToint(edit3.text);
    write(f,w);
      memo1.lines.add(w.naz);
      memo2.lines.add(w.fam);
      memo3.lines.add(Inttostr(w.vozr));
      edit1.Clear;
      edit2.Clear;
      edit3.Clear;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
        begin
   SaveDialog1.Title:='Создать файл';
   SaveDialog1.DefaultExt:='.dat';
   if SaveDialog1.Execute  then
   begin
   fname:=SaveDialog1.FileName;
   AssignFile(f,fname);
   Rewrite(f);
 
end;
 button1.Enabled:=true;
 zak:=true;
 end;
procedure TForm1.FormCreate(Sender: TObject);
   begin
     zak:=false;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
OpenDialog1.Title:='открыть файл';
if OpenDialog1.Execute then
begin
fname:=OpenDialog1.FileName;
AssignFile(f,fname);
reset(f);
end;
while not eof(f) do
begin
 
read(f,w);
memo1.Lines.add (w.naz);
memo2.Lines.add (w.fam);
memo3.Lines.add (IntToStr(w.vozr));
end;
closefile(f)
 
 
 
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
SaveDialog1.Title:='Сохранить в текстовом файле';
SaveDialog1.DefaultExt:='.txt';
if SaveDialog1.Execute then
begin
fnamet:=SaveDialog1.FileName;
AssignFile(ft,fnamet);
Rewrite(ft);
end;
writeln(ft,'Список команд');
writeln(ft,'Фамилия, возраст');
reset(f);
while not eof(f) do
begin
read(f,w);
with w do
writeln(ft,fam:10,naz:6,vozr:10);
end;
closeFile(f);
closeFile(ft);
end;
 
end.

процедура вывода инфы о самой иолодой команде

procedure TForm1.Button5Click(Sender: TObject);
 
  var i,min:integer;
  begin
memo4.Clear;
memo5.Clear;
memo6.Clear;
 min:=strtoint(memo3.Lines.Strings[0]);
 for i:=0 to memo3.Lines.Count-1 do
 if min>strtoint(memo3.Lines.Strings[i]) then min:=strtoint(memo3.Lines.Strings[i]);
 
 for i:=0 to memo3.Lines.Count-1 do
 if strtoint(memo3.Lines.Strings[i])=min then
 begin
  memo4.Lines.Append(memo1.Lines.Strings[i]);
  memo5.Lines.Append(memo2.Lines.Strings[i]);
  memo6.Lines.Append(memo3.Lines.Strings[i]);
 end;
end;

однако программа работает только с командами с одной фамилией.
тоесть например
Спартак Иванов 20лет
Юпитер сидоров 24
Уран петров 23

Программа выводит
Спартак Иванов 20лет

Как сделать чтобы программа работала с командами с несколькими игроками? тоесть считала среднее арифметическое и выводила название, список игроков в этой команде и средний возраст?

подскажите.

[vitaly38]

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

[Stilet]

А прикрепить архив с проектом не судьба?
Ты думаешь охота все твои компоненты заново по коду переизбирать?

[vitaly38]

извините, не подумал. Вот проект.

[Stilet]

Ну вот смотри:
Перекраивая твое

procedure TForm1.Button5Click(Sender: TObject);

  var i,min:integer; cmd:string;
  begin
memo4.Clear;
memo5.Clear;
memo6.Clear;
 min:=MaxInt;
 for i:=0 to memo3.Lines.Count-1 do
 if min>strtoint(memo3.Lines.Strings[i]) then begin
  min:=strtoint(memo3.Lines.Strings[i]);
  cmd:=Memo1.Lines[i];
 end;

 for i:=0 to memo1.Lines.Count-1 do
 if Memo1.Lines[i]=cmd then
 begin
  memo4.Lines.Append(memo1.Lines.Strings[i]);
  memo5.Lines.Append(memo2.Lines.Strings[i]);
  memo6.Lines.Append(memo3.Lines.Strings[i]);
 end;
end;

Увидел предложения?

[vitaly38]

программа работает также как и с моим кодом...

мне надо чтобы она работала следующим образом..

спартак иванов 23
юпитер сидоров 19
юпитер ковалев 17
спартак петров 22

программа должна вывести


юпитер сидоров 18(средний возраст)
ковалев

[vitaly38]

неужели никто не может помочь?

[zmey31313]

ICQ: 474166465 или dmi83206389@mail.ru договоримся

[vitaly38]

помогите кто нибудь.

[Sanprof]

Я так понимаю вам нужно найти среднее арифметическое в каждой присутствующей в списке команд и по нему определить, какой команде принадлежит наименьшее???