типы данных-записи

[BumBum4ik]

Так как автор темы не пояснил, что означает распространенные, то решил в мере своего понимания данного термина.

Вот,что неверно,не я должна вводить данные,а чтобы данные там уже имелись

[Serge_Bliznykov]

const
 n=2;
Type
 info=Record
  Fam,im,ot:string[30];
  Pol:string[1];
  Vozr,kurs:byte;
 End;
Var
 r:info;
 f:file of info;
 i:integer;

begin
AssignFile(f,'data.dat');
Rewrite(f);
For i:=1 to n do
 Begin
  write('Введите фамилию '); Readln(r.fam);
  write('Введите имя '); Readln(r.im);
  write('Введите отчество '); Readln(r.ot);
  write('Введите пол '); Readln(r.pol);
  write('Введите возраст '); Readln(r.vozr);
  write('Введите курс '); Readln(r.kurs);
  Write(f,r);
 End;
CloseFile(f);

Reset(f);
While not eof(f) do
 Begin
  Read(f,r);
  If (r.ot='Иванович') or (r.ot='Петрович') then
   Writeln(r.fam,r.pol);
 End;
CloseFile(f);
end.

теперь пишет неизвестное имя F

в каком месте пишет?!

Вот,что неверно,не я должна вводить данные,а чтобы данные там уже имелись

"там" - это где?! в космическом пространстве? у Вас на компьютере?!
Вы же понимаете, что сами по себе данные ниоткуда не возьмутся, их кто-то должен ввести. Если не Вы, то кто это сделает?

[BumBum4ik]

мне надо чтобы данные уже были,и отображались фамилии самых распространёных,то есть данные уже должны быть в програмке

[Serge_Bliznykov]

ок.
зайдём с другой стороны...

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

мне надо чтобы данные уже были,и отображались фамилии самых распространёных,то есть данные уже должны быть в програмке

Кто пишет программу? Вы её пишете? Значит, Вы должны забить эти данные в программу, так?

[ZX Spectrum-128]

Мнится мне, что уважаемый тс что-то мутит
Я положил работающую и отлаженную программу (fpc). Компилятор никоим образом не ругался. И программа честно отработала.

Upd: Кстати, все-таки что значит "распространенные"?

[type_Oleg]

Нет, БумБумчик наверное имела ввиду, что надо искать не "Иванович, Гаджимагомедович ... ", а самые популярные среди введенных в начале.
То есть не задавать в самой программе.

[ZX Spectrum-128]

То есть, все-таки те отчества, коих наибольшее количство?

Кстати, я сейчас подумал. А может у препода уже есть готовый файлик с данными, на котором он и проверяет работоспособность студенческих программ?

[BumBum4ik]

program main;
uses Opys,pidprog,crt;
var list1:list;
Begin
 
Enter(list1);
Find(list1);
readln;
end.

unit Opys;
interface
type
   student=record
   otch:string[20];
   name:string[20];
   surname:string[20];
   g_char:char;
   age:byte;
   course:byte
   end;
   list=array[1..5] of student;
implementation
end.

unit pidprog;
interface
  uses Opys,Crt;
  procedure Enter(var list1:list);
  procedure Find(list1:list);
 
implementation
 
procedure Enter(var list1:list);
var i:integer;
begin
clrscr;
for i:=1 to 5 do begin
  writeln('Enter student ',i,' info:');
  with list1[i] do begin
    write('Отчество: ');
    readln(otch);
    write('Имя: ');
    readln(name);
    write('Фамилия: ');
    readln(surname);
    write('Возраст: ');
    readln(age);
    write('Пол:(ж или м ');
    readln(g_char);
    write('Курс: ');
    readln(course);
    clrscr;
  end;
  end;
  end;
procedure Find(list1:list);
var count,tmp_count,i,j,listN:integer;
tmp_surname:string[20];
begin
count:=0;
tmp_count:=0;
with list1[1] do tmp_surname:=surname;
for i:=2 to 5 do begin
for j:=i to 5 do begin
  with list1[j] do if tmp_surname=surname then tmp_count:=tmp_count+1;
end;
if count<tmp_count then
begin
listN:=i-1;
count:=tmp_count;
end;
tmp_count:=0;
with list1[listN] do
tmp_surname:=surname;
end;
for i:=listN to 5 do begin
with list1[i] do
if surname=tmp_surname then WriteLn('Отчество ',otch,'    Пол: ',g_char);
end;
end;
 
end.

вот а задание было подключить модуль к вот этому заданию:Есть информация о студентах радиофизического факультета, представлена ​​в таком виде:
<фамилия>, <имя>, <отчество>, <пол>, <возраст>, <курс>
Составить программу с процедурами, которая вводит эту информацию и печатает следующие данные:
Фамилии и пол студентов, имеющих распространенные отчество