Список групп содержит название группы, количество студентов в каждой группе. Расчитать количество двоек - Pascal ABC

Формулировка задачи:

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

Условия задачи таковы:

Список групп содержит название группы, количество студентов в каждой группе, количество 5,4,3. Предусмотреть правильность ввода. Расчитать количество двоек, процент неуспевающих в каждой группе (записать в виде x%). Поиск по группе.

Необходимо написать программу на Pascal. Я не прошу писать мне всю программу. Дело в том, что я не совсем понял условия задачи. Объясните кто-нибудь, хотя бы, как решается данная задача, какая последовательность действий необходима.

У меня получается так. Возможно, я что-то не правильно понимаю, объясните что не так, пожалуйста

label 1;
var a:array[1..4] of string=('Количество студентов','Количество пятерок','Количество четверок','Количество троек');
    b:array[1..4] of integer;
    i,j,c,d:integer;
begin    
1:for i:=1 to 4 do begin
writeln(a[i]);
read(b[i]);
end;
j:=b[2]+b[3]+b[4];
c:=b[1];
if c<j then begin writeln('Как же так!? Количество студентов меньше количества оценок. Возможно,вы не в себе. Попробуйте еще раз!');
goto 1;
end;
d:=b[1]-j;
writeln('В группе ', d, ' студентов имеют двойки');
end.

Немножко переделал, "название группы" добавил. Вопрос остается тем же: верно ли я делаю?

label 1;
var a:array[1..5] of string=('','Количество студентов','Количество пятерок','Количество четверок','Количество троек');
    b:array[1..4] of integer;
    i,j,c,d:integer;
begin
writeln('Введите название группы');
readln(a[1]);
writeln(a);  
1:for i:=2 to 5 do begin
writeln(a[i]);
read(b[i-1]);
end;
j:=b[2]+b[3]+b[4];
c:=b[1];
if c<j then begin writeln('Как же так!? Количество студентов меньше количества оценок. Возможно,вы не в себе. Попробуйте еще раз!');
goto 1;
end;
d:=b[1]-j;
writeln('В группе ', d, ' студентов имеют двойки');
end.

Ну помогите кто-нибудь..

Апну

Решение задачи: «Список групп содержит название группы, количество студентов в каждой группе. Расчитать количество двоек»

textual
                            Листинг программы 
                        

                            type
 TStudent=record
   Name:String;
   Ball:array[1..5] of integer;
 end; 
 TGroup=record
   Name:String;
   Stu:Array[1..5] of TStudent;
 end;
 
var Groups:Array[1..10] of TGroup
                        