Структура: Создать запись, в которой будет содержаться информация о студенте.

const
  sessia_n1 = 3;
  sessia_n2 = 4;
  n_zap = 15;
 
type
  ocenka = record
    predmet: string[64];
    oc: Byte;
  end;
 
type
  student = Record
    fam: String[128];
    kod: String[16];
    god: Integer;
    pol: byte; //0 - man,1 - woman
    seccia1: array [1..sessia_n1] of ocenka;
    seccia2: array [1..sessia_n2] of ocenka;
  end;
 
var
  x: Array [1..n_zap] of student;
  k, i, j: Byte;
 
begin
  for i := 1 to n_zap do
  begin
    Write('Введите фамилию студента: ');
    Readln(x[i].fam);
    Write('Введите код группы: ');
    Readln(x[i].kod);
    Write('Введите год рождения: ');
    Readln(x[i].god);
    Write('Введите пол студента: ');
    Readln(x[i].pol);
    Writeln('Введите оценки 1-й сессии: ');
    for j := 1 to sessia_n1 do
    begin
      Write('Введите предмет: ');
      Readln(x[i].seccia1[j].predmet);
      Write('Введите ', j, ' оценку: ');
      Readln(x[i].seccia1[j].oc);
    end;
    Writeln('Введите оценки 2-й сессии: ');
    for j := 1 to sessia_n2 do
    begin
      Write('Введите предмет: ');
      Readln(x[i].seccia2[j].predmet);
      Write('Введите ', j, ' оценку: ');
      Readln(x[i].seccia2[j].oc);
    end;
  end;
  k := 0;
  Writeln('Ученики, которые учатся только на тройки: ');
  for i := 1 to n_zap do
  begin
    for j := 1 to sessia_n1 do
      if x[i].seccia1[j].oc = 3 then
        inc(k);
    for j := 1 to sessia_n2 do
      if x[i].seccia2[j].oc = 3 then
        inc(k);
    if k = sessia_n1 + sessia_n2 then 
      Writeln(x[i].fam);
  end;
end.