Пожалуйста помогите доделать программу

[Kaddafi]

Помогите доделать программу пожалуйста если можно то сейчас надо завтра показывать уже надо =).

Вывести на экран фамилии трех студентов, имеющих наибольшее количество задолженностей. n=6.
Я сделал подсчет количества двоек, а дальше как не знаю.

program Z5V21;
const n=6; {количество студентов}
{запись - судент}
type
student = record
fam:string[15]; {фамилия}
inn:string[10]; {ИНН}
data_r:string[8]; {год рождения}
god_p:integer; {год поступления}
kurs:1..5; {курс}
gruppa:string[8];{группа}
b1,b2,b3:2..5; {оценки}
end;


var spisok:array[1..n] of student; {объявляем список студентов}
i,k:integer; {счётчик цикла}
begin
{ввод даных о студентах}
for i:=1 to n do
with spisok[i] do {для каждого студента из списка вводим}
begin
write('Введите фамилию: '); {фамилию}
readln(fam);
write('Введите ИНН: '); {ИНН}
readln(inn);
write('Введите дату рождения (DDMMGGGG): '); {дату рождения}
readln(data_r);
write('Введите год поступления: '); {дау поступления}
readln(god_p);
write('Введите курс: '); {курс}
readln(kurs);
write('Введите группу: '); {группу}
readln(gruppa);
write('Введите три оценки: '); {оценки}
readln(b1,b2,b3);
end;

for i:=1 to n do
begin
k:=0;
with spisok[i] do
begin
{проверяем задолжность}
if(b1<=2) then
inc(k);
if (b2<=2) then
inc(k);
if (b3<=2) then
inc(k);

writeln('Фамилия:',fam:20,b1:3,b2:3 ,b3:3);
writeln(k);
end;

end;
readln;
end.

[lunnamedl]

помогите написать прогу
Дана матрица А(5х6).Сформировать массив из сумм (произведений) элементов каждой строки, находящихся в пределах d<A[i,j]<=c (d,c- вещественные) если их в строке нет, то результат положить равным нулю
ПОМОГИТЕ ПЛИЗЗ

[lunnamedl]

или эту
Дана недопустимая последовательность слов из латинских букв, соседние слова отделены друг от друга запятой, за последним словом точка . Определить количество слов в тексте