Pascal. Помогите составить программу.

Например, у нас двумерный массив с записями
Элементы
1  фамилия
2 имя
3 отчество
4 возраст
5 пол
6 группа крови
8 буква группы
9-13 оценки
Пройдёмся по нему
for i:=1 to n do begin
count:=0;
for j:=9 to 13 do if (a[i, j] = 2) then count:=count+1;
if (count >1) then writeln (a[i, 1]);
end;

uses crt;
const n=5;
type anketa=record
 Family:String;
 Name:String;
 Patronymic:String;
 Years:integer;
 Gender:String;  
 Subject1:integer;
 Subject2:integer;
 Subject3:integer;
 Subject4:integer;
 Subject5:integer;  
 end;
var spis:array[1..n] of anketa;
   i, k:integer;
begin
for i:=1 to n do
 begin
 clrscr;
 writeln('Анкета ',i,' из ',n);
 
 write('Фамилия - ');  readln(spis[i].Family);
 write('Имя - ');  readln(spis[i].Name);
 write('Отчество - '); readln(spis[i].Patronymic);
 write('Возраст(число) - '); readln(spis[i].Years);
 write('Пол - ');  readln(spis[i].Gender);
 
 writeln;
 writeln('Оценки по предметам():');
 write('Предмет1 - ');readln(spis[i].Subject1);
 write('Предмет2 - ');readln(spis[i].Subject2);
 write('Предмет3 - ');readln(spis[i].Subject3);
 write('Предмет4 - ');readln(spis[i].Subject4);
 write('Предмет5 - ');readln(spis[i].Subject5);  
 end;
 
clrscr;
for i:=1 to n do
 begin
 k:=0;
 if spis[i].Subject1 = 2 then inc(k);
 if spis[i].Subject2 = 2 then inc(k);
 if spis[i].Subject3 = 2 then inc(k);
 if spis[i].Subject4 = 2 then inc(k);
 if spis[i].Subject5 = 2 then inc(k);
 if k>=2 then writeln(spis[i].Family,' - ', k);  
 end;
readln;
end.