File

[Чуччи]

Вот почти готовая моя задача
через нее вводятся данные в файл, а потом когда выбираем например "самый высокий мужчина", то задача выбирает среди только что введенных людей, а не среди все кто сохранен в файле....как сделать чтоб искалось среди всех тех, кто записан в файле? (заранее в папке бин должен быть создан тхт файл nino.txt) помогите, как сделать

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;
      masss=array[1..100] of char;

       var i,n,k,y,p:integer;
           a:mass;
           b:masss;
           o:text;
           f:file of anketa;
           s:string;
                    procedure open(b:masss);
                    var i,p:integer;
                        f:text;
                               begin
                                clrscr;
                                assign(f,'nino.txt');
                                reset(f);
                                i:=1;
                                p:=0;
                                 while not (eof(f)) do begin
                                 read(f,b[i]);
                                 inc(i);
                                 p:=i;
                                 end;
                                 writeln('Soderganue faila:');
                                 for i:=1 to p do write(b[i]);
                                 writeln;
                                 close(f);
                                 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 dob(a:mass;n:integer);
                               begin
                               writeln('skolko zapisey dobavit?');
                               readln(y);
                               for i:=n+1 to n+y do
                               with a[i] do
                               begin
                                write('Imia: ');
         readln(name);
         repeat
         write('Pol (m or w): ');
         readln(pol);
          until pol in ['m','w'];
           repeat
           write('rost: '); readln(rost);
           until rost in [140..200];
           end;

             n:=n+y;

                    assign(o,'nino.txt');
                    append(o);

                    for i:=1 to n do
                    begin
                    writeln(o,a[i].name, '|',a[i].pol, '|',a[i].rost);

                    end;

                    close(o); Writeln('File uspeshno perezapisan!');
                    end;
begin
clrscr;

 write('Vvedite kol-vo zapisey: ');
 readln(n);
   for i:= 1 to n do
     begin
       writeln('vvedite svedenia o cheloveke ',i);
        with a[i] do
            begin
         write('Imia: ');
         readln(name);
         repeat
         write('Pol (m or w): ');
         readln(pol);
          until pol in ['m','w'];
           repeat
           write('rost: '); readln(rost);
           until rost in [140..200];
             end;
      end;
                      begin

              repeat
              Writeln ('Viberite deistvie:');
              writeln('1-srednii rost zhenshin');
              writeln('2-imia samogo visokogo muzhchini');
              writeln('3- est li 2 cheloveka odnogo rosta');
              writeln('4-dob');

              writeln('5-otkrutue faila');
              writeln('6-exit');
              writeln('Spisok:');

                 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..8];
                                     case k of
                                     1: SredRost(a,n);
                                     2: ImyaVys(a,n);
                                     3: OdnRost(a,n);
                                     4: dob(a,n);
                                     5: open(b);
                                     6: exit;
                                      end;
                                            until k=8;


 end;
end.

[Чуччи]

я убрала некоторые процедуры не влазил код просто)) но не важн это, что надо добавить чтоб весь файл читал..

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

while (not eof(f))
begin
...
  while (not eoln(f)) do
  begin
       ...
  end;
readln(f);
...
end;

[Чуччи]

а это отдеельно или куда писать??