Здравствуйте, Стас Хайчин!
Решение задачи в приложении.Удачи, земляк! Не болей.
Сделал 5 оценок, а то по 2 двойки из трех оценок это черезчур круто.

Приложение:
uses crt;
const nmax=50; {максимальный размер списка}
type Tstud=record {тип запись с полями по условию}
fam:string[15];{фамилия}
ocn:array[1..5]of byte;{массив оценок}
srb:real;{ср.балл}
end;
var sp:array[1..nmax] of Tstud;{массив записей, список со всеми данными}
n,i,k,j,t:byte;{количество, разные счетчики}
sr2:real;{средний у кого больше 1 двойки}
begin
clrscr;
repeat
write('Kolichestvo studentov n=');
readln(n);
until (n>0)and(n<=nmax);{проверяем правильность ввода}
writeln('Vvedite dannye o ',n,' studentah:');
for i:=1 to n do
begin {заполняем массив данными}
writeln('Student ',i);
write('Familia: ');readln(sp[i].fam);
writeln(' Ocenki:');
sp[i].srb:=0;
for j:=1 to 5 do
begin
write(j:7,'=');
readln(sp[i].ocn[j]);
sp[i].srb:=sp[i].srb+sp[i].ocn[j]/5;{считаем средний у каждого}
end;
end;
clrscr;
writeln('Obshij spisok studentov(familia i sred.ball):');
writeln;
for i:=1 to n do
writeln(sp[i].fam,' ',sp[i].srb:0:2);{выводим фамилию и ср.балл}
writeln;
sr2:=0;t:=0; {начинаем считать средний среди всех двоешников}
for i:=1 to n do
begin
k:=0;
for j:=1 to 5 do
if sp[i].ocn[j]=2 then k:=k+1;{если оценка 2, считаем}
if k>1 then {если больше 1 двойки}
begin
sr2:=sr2+sp[i].srb;{складываем ср.баллы}
t:=t+1;{считаем двоешников}
end;
end;
sr2:=sr2/t;{вычисляем средний из средних у двоешников}
if sr2=0 then writeln('Studentov? u kotoryh > 1 dvojki net!'){если таких нет}
else writeln('Srednij ball poluchivshih > 1 dvojki=',sr2:0:2);{если есть}
readln;{задержка}
writeln('Spisok studentov s familiej iz 5 bukx:');
k:=0;
for i:=1 to n do
if length(sp[i].fam)=5 then{если фамилия из 5 букв}
begin
writeln(sp[i].fam);{выводим}
k:=1; {фиксируем что есть}
end;
if k=0 then write('Takih familij net!');{если нет таких}
readln
end.