Помогите пожайлуста :типы записи(Pascal)

[Sven113]

Разработайте программу, которая формирует массив записей о студентах некоторой группы, содержащей следующую информацию: фамилию, оценки за последнюю сессию по трем предметам и размер стипендии. Фамилию и отметки программа должна вводить с клавиатуры, а размер стипендии считать, исходя из оценок: все "5" – повышенная (+25%), есть одна "4" – повышенная (+10%), нет троек – обычная стипендия, есть одна "3" – социальная (-15%), больше одной "3" – стипендия 0. Базовый размер стипендии задать в программе константой. После чего программа должна вывести на экран результирующий массив.

[Хыиуду]

Что именно не получается?
Запись примерно такая
type TStudent = record
name: string;
marks: array[1..3] of byte;
stipendia: integer;
end;

[Sven113]

имеется алгоритм ввода ,вывода .Нужен код ,который будет определять размер стипендии в зависимости от оценок

[Хыиуду]

1. Пройтись по массиву, пересчитать количество троек: 2-3 - стипендия 0, 1 - стипендия 0.85.
2. Если троек нет - сложить все оценки: 15 - стипендия 1.25, 14 - стипендия 1.1, в остальных случаях стипендия 1

[Sven113]

А можно в виде кода?

[Хыиуду]

Что именно вызывает сложности?
Мне, как и большинству старожилов форума, хочется снабжать голодных не рыбой, а удочками.