Записи файлы

[Чуччи]

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

Program Nino;
 uses crt;
const nmax=8;
type anketa=record
     name:string[5];
     pol:char;
     rost:140..200;
end;
      mass=array[1..100] of anketa;
       var i,n,k:integer;
           a:mass;
                  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;
begin
clrscr;
 write('Vvedite kol-vo zapisey: ');
 readln(n);
   for i:= 1 to n do
     begin
       writeln('Введите сведения о человеке ',i);
        with a[i] do
            begin
         write('Имя: ');
         readln(name);
         repeat
         write('Пол (m or w): ');
         readln(pol);
          until pol in ['m','w'];
           repeat
           write('Рост: '); readln(rost);
           until rost in[140..200];
             end;
      end;
                      begin
 
              repeat
              clrscr;
              Writeln ('Viberite deistvie:');
              writeln('1-srednii rost zhenshin');
              writeln('2-imia samogo visokogo muzhchini');
              writeln('3- est li 2 cheloveka odnogo rosta');
              writeln('4-vyhod');
              writeln('Список:');
                 for i:=1 to n do
                   with a[i] do
                   writeln(name:7,pol:3,rost:5);
                   writeln;
                           repeat
                           Write('Vash vibor: ');
                           readln(k);
                              until k in [1..4];
                                     case k of
                                     1:SredRost(a,n);
                                     2:ImyaVys(a,n);
                                     3:OdnRost(a,n);
                                     4:exit;
                      end;
                                     until k=6;
end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Летучий_СкилетиК]

ее надо изменить таким образом:дополнить чтобы запись в файл записывалась и из файла считывалась, записи хранятся в файле и отттуда считываются

для чтения из файла

AssignFile(f,'in.txt') или Assign(f,'in.txt'); Reset(f)

для записи в файл

AssignFile(f2,'in.txt') или Assign(f2,'in.txt'); Rewrite(f2)

в функции read(f1,//аргумент)
в функции write(f2,//аргумент)