не получается программу офрмить в процедуру

Здравствуйте.
Написала прогу , правильно работает. только не могу засунуть ее в процедуру, не хватает знаний о файлах((( искала как сделать в инете не нашла

помоги если не сложно.

Type человек=record
имя:string
возраст:integer;
end;
группа=file of человек;

Описать процедуру СамыеМолодые(гр), печатающую имена всех людей из непустой группы Гр, имеющих наименьший возраст.

Заранее спасибо)

**************************************** ******


Form1: TForm1;

implementation

{$R *.dfm}

type Tpeople=record
im:string[19];
year:integer;
end;

group=file of Tpeople;
var
f:group;
z:Tpeople;
procedure fff(var f:group); // я так понимаю только выходной параметр будет?
var

begin


end;


procedure TForm1.Button1Click(Sender: TObject);

begin
with z do
begin
im:=Edit1.Text;
year:=StrToInt(Edit2.Text);
end;
write (f, z);
Edit1.Clear;
Edit2.Clear;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
begin
Reset(f);
i:=0;
while not Eof(f) do
begin
read(f,z);
if z.year<30 then
begin
ListBox1.Items[i]:=z.im+' '+inttostr(z.year);
i:=i+1;
end;
end;
Closefile(f);
end;
Begin
assignFile(f,'c:\god.txt');
Rewrite(f);
end.

0

ясно

спасибо)

0

ваш проект переделала по своемУ(со своими объектами) ошибку выдает.......
перед write(f,z)

посмотрите пожалуйста

Вложения

ошибка.rar (1.5 Кб, 3 просмотров)

0

ура ура у меня получилось))

0

Сообщение от Violetta ура ура у меня получилось))

форум аплодирует

0