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

[BumBum4ik]

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

[ZX Spectrum-128]

Type
 Record=info
  Fam,im,ot:string;
  Pol:string[1];
  Vozr,kurs:byte;
 End;
Var
 R:info;
 F:file of info;
...
Assgn(f,'data.dat');
Rewrite(f);
For i:=1 to n do
 Begin
  Readln(r.fam);
  Readln(r.im);
  Readln(r.ot);
  Readln(r.pol);
  Readln(r.vozr);
  Readln(r.kurs);
  Write(f,r);
 End;
Close(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;
Close(f);

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

[Serge_Bliznykov]

кстати. маленькое замечание.

Type
 Record=info
  Fam,im,ot:string;
  Pol:string[1];
  Vozr,kurs:byte;
 End;
Var
 R:info;
 F:file of info;

1-е. перепутаны местами тип и название типа.
нужно их переставить местами:

Type
 info = record
   Fam,im,ot:string;
   Pol:string[1];
   Vozr,kurs:byte;
 End;

во-вторых, такой код нормально откомпилится в TurboPascal, но не в современном компиляторе Pascal, где строка - это уже ССЫЛОЧНЫЙ тип.

самый просто способ обойти это - использовать короткие строки.
Например, вот так:

Type
 info = record
  Fam,im,ot:string[45]; {м.б. любая длина <=255, достаточная для хранения нужной нам информации}
  Pol:string[1];
  Vozr,kurs:byte;
 End;

[ZX Spectrum-128]

во-вторых, такой код нормально откомпилится в TurboPascal, но не в современном компиляторе Pascal, где строка - это уже ССЫЛОЧНЫЙ тип.

Компилируется. Опции компилятора ставил object pascal extension on и free pascal dialect

Исправил еще ошибки:

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

begin
Assign(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;
Close(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;
Close(f);
end.

[BumBum4ik]

выдаёт ошибки((

[BumBum4ik]

F:file of info;
пишет что типизированный файл не может содержать элементы такого типа

[type_Oleg]

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

F:file of info;
пишет что типизированный файл не может содержать элементы такого типа

Чтобы в файл записывать, длина блока данных должна быть определена.

Type
info=Record
  Fam,im,ot:string[20]; // задать длину строк
  Pol:string[1];
  Vozr,kurs:byte;
End;

[BumBum4ik]

Assign(f,'data.dat');
нет перегруженной подпрограммы с такими типами параметров

[type_Oleg]

Наверное AssignFile(f,'data.dat') надо.

[BumBum4ik]

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