Записи (база данных) (паскаль)

[Анечка43]

Помогите пожалуйста создать базу данных.
Составить базу данных об учащихся предусмотрев поля Ф.И.О, список выбранных факультативов. Составить программу, позволяющую:
-ввести полный список учащихся,
-список учащихся данного факультатива,
-список учащихся, выбравших больше трех факультативов.

[ZX Spectrum-128]

Количество выбранных факультативов разное? И максимальное количество их чему равно?

[Анечка43]

да, разное. ну не более 5. неизвестное число.

[ZX Spectrum-128]

const
  N=5;
type
  student=record // запись
    fio:string[128];
    fak:array [1..n] of string[128];
  end;
var 
  bd:array [1..25] of student; // сама база в массиве

[Анечка43]

тоесть получается, что ФИО одного ученика я ввожу в одну строку? а не отдельно?

program based;
type
Student=Record
fio:string[128];
fak:array[1..5] of string [50];
end;
var
 i, j: byte;
bd:array[1..15] of student;
begin
procedure stud;
begin
for i:=1 to 15 do
  begin
   write ('vvedite FIO',i,'uchenika: ');
   readln(bd[i].fio);
     begin
      for j:=1 to 5 do
        begin
         write ('vvedite fakultativi, v kotorih zanimaetsia',i,'uchenik: ');
         readln(bd[i].fak[j]);
        end;
     end;
  end;
end;
procedure vivod;
begin
with bd[i] do
  begin
   writeln('fio uchenikov: ',fio);
  end;
begin
for i:=1 to 15 do
  stud;
writeln;
writeln('spisok uchashihsia odnogo fakultativa: ');
writeln;
writeln(bd[i].fak[j]);
vivod;
writeln('vibod dannih po naz fak: ');
writeln;
writeln('vvidite naz fak: ');
readln(bd[i].fak[j]);
 for i:=1 to 15 do
 if bd[i].fak[j]=bd[i].fak[j] then
 vivod;
end;
end;
end;
end.

Помогите, пожалуйста, доделать. Выводить список учащихся, выбравших больше трех факультативов.
И в том, что уже сделала ошибка..

[ZX Spectrum-128]

Можно и отдельно. По условию задачи непонятно.
А как вы обозначали тот случай, если студент выбрал меньше 5 факультативов? У вас при вводе заставляют выбирать все 5.

[Анечка43]

program based;
const
n=5;
k=15;
type
Student=Record
fio:string[128];
fak:array[1..n] of string [50];
end;
var
 i, j: byte;
bd:array[1..k] of student;
procedure stud;
begin
for i:=1 to k do
  begin
   write ('vvedite FIO',i,'uchenika: ');
   readln(bd[i].fio);
     begin
      for j:=1 to n do
        begin
         write ('vvedite fakultativi, v kotorih zanimaetsia',i,'uchenik: ');
         readln(bd[i].fak[j]);
        end;
     end;
  end;
end;
procedure vivod;
begin
with bd[i] do
  begin
   writeln('fio uchenikov: ',fio);
  end;
  begin
   for i:=1 to k do
   stud;
   writeln;
   writeln('spisok uchashihsia odnogo fakultativa: ');
   writeln;
   writeln(bd[i].fak[j]);
   vivod;
   writeln('vibod dannih po naz fak: ');
   writeln;
   writeln('vvidite naz fak: ');
   readln(bd[i].fak[j]);
   for i:=1 to k do
   if bd[i].fak[j]=bd[i].fak[j] then
   vivod;
  end;
end.

так?

[ZX Spectrum-128]

ввод и вывод списка учащихся

{Составить базу данных об учащихся предусмотрев поля Ф.И.О, список выбранных факультативов.
Составить программу, позволяющую:
-ввести полный список учащихся,
-список учащихся данного факультатива,
-список учащихся, выбравших больше трех факультативов.}

program based;
const
  n=5;
  k=3;
type
  Student=Record
    fam:string[64];
    im:string[64];
    ot:string[64];
    fak:array[1..n] of string [64];
  end;
var
   i,j :byte;
   bd :array[1..k] of student;

procedure bd_input;
begin
  for i:=1 to k do
    begin
      write ('Введите фамилию ',i,' ученика: ');
      readln(bd[i].fam);
      write ('Введите имя ',i,' ученика: ');
      readln(bd[i].im);
      write ('Введите фамилию ',i,' ученика: ');
      readln(bd[i].ot);
      for j:=1 to n do
        begin
         write ('Введите ',j,' факультатив, в котором занимается ученик ',i,' ученик: ');
         readln(bd[i].fak[j]);
        end;
     end;
end;

procedure bd_output;
begin
for i:=1 to k do
  begin
    with bd[i] do
      begin
        writeln('ФИО ',i,' ученика: ',fam,' ',im,' ',ot);
      end;
  end;
end;
begin
  bd_input;
  bd_output;
  readln;
end.