PascalABC. файлы.

[Gorny]

В файле содержатся сведения о студентах: фамилия, имя, пол. Определить самое распространенное женское имя.

[notHaker]

Наглый та какой... Прям слов нет. Эт те чё, бесплатный бот для домашних раьот???

[Gorny]

Извините. Я не наглый, просто сессия, сдавать нужно завтра, а нифига не понятно. Все что смог я сделал. Вот и ищу помощи повсюду.

[notHaker]

Сообщение от Gorny

Извините. Я не наглый, просто сессия, сдавать нужно завтра, а нифига не понятно. Все что смог я сделал. Вот и ищу помощи повсюду.

Ты чёнить напиши... а мы поработаем... Угу?

[Gorny]

Попробую...

[ai\ekcah^p]

что-то вроде этого ->

program zad;
uses crt;
type student = record
     fam:string[20];
     imya:string[20];
     sex:string[20];
     end;
var
m:array[1..20] of student;
f:text;
i,j,n,max,fc,find:integer;

begin
 clrscr;
 write('введите n->'); readln(n);
  assign(f,'c:\student.txt');
  begin
   rewrite(f);
   for i:=1 to n do
   begin
    write('фамилия    -> ');readln(m[i].fam);
    write('имя        ->');readln(m[i].imya);
    write('пол (ж/м)  ->');readln(m[i].sex);
   end;
    for i:=1 to n do
    begin
     writeln(f,m[i].fam);
     writeln(f,m[i].imya);
     writeln(f,m[i].sex);

     begin
      fc:=0;

      if m[i].sex='ж' then
      begin
       for j:=1 to n do
       begin
        if m[j].imya=m[i].imya then
         fc:=fc+1;
        end;
        if  fc>max then
         begin
          max:=fc;
          find:=i;
         end;
       end;
      end;
    end;
    end;
     writeln('**************************************');
     writeln('самое распространенное женское имя -> ',m[find].imya);
     writeln(' если помог , нажмите на весы слева  ');
   close(f);
 readln;
end.