Записи/Файлы

[Чуччи]

Сформировать файл, имеющий следующую структуру
type данные=record имя, полм,ж);рост:140..200 end;
и определить:

средний рост женщин;
имя самого высокого мужчины;
есть ли в группе хотя бы два человека одного роста.( c процедурами)
+ процедура добавить запись
у меня есть отдельно процедуры

procedure SredRost(a:mass;n:integer);
                       var sred:real;
                           i,j:integer;
                         begin
                         sred:=0;
                         j:=0;
                           for i:=1 to n do
                            if a[i].pol='w' then
                             begin
                              inc(j);
                              sred:=sred+a[i].rost;
                             end;
                                 if j=0 then writeln('Zenshin net!')
                                 else
                                     begin
                                      sred:=sred/j;
                                      writeln('Srednij rost zenshin=',sred:0:2);
                                     end;
                                     readln;
                          end;

procedure ImyaVys(a:mass;n:integer);
                            var i,imx,mx:integer;
                              begin
                                 imx:=0;mx:=140;
                                    for i:=1 to n do
                                      if (a[i].pol='m')and(a[i].rost>mx) then
                                        begin
                                         mx:=a[i].rost;
                                         imx:=i;
                                        end;
                                      if imx=0 then writeln('Muzchin net!')
                                       else writeln('Imya samogo vysokogo muzchiny ',a[imx].name);
                                            readln;
                               end;
                   procedure OdnRost(a:mass;n:integer);
                             var i,j:integer;
                             f:boolean;
                               begin
                                 f:=false;
                                   for i:=1 to n-1 do
                                   for j:=i+1 to n do
                                     if a[i].rost=a[j].rost then f:=true;
                                      if f then writeln('Est 2 cheloveka odnogo rosta')
                                       else writeln('Net 2h chelovek odnogo rosta');
                                       readln;
                               end;