[lmikle]

Тебе нужен массив размером 11 колонок (ФИО студента + 10 вопросов) на [кол-во студентов в группе] строк. Тип данных - String. Сначала данные вводяться в массив (например, с помощью флажков на форме) + кнопочки подсчета разной статистики. Все зависит от конкретных пожеланий.

Вот тебе описание типов данных и функции подсчета кол-ва ответов на конкретный вопрос из 10:

Код:

type
  TRec = Array [0..10] Of String; // Это одна строка
  TData = Array Of TRec; // динамический массив для ответов 1 студента

procedure GetYNForQuestion(A : TData; ANum : Integer; var AYes, ANo, ATotal : Integer);
var
  I : Integer;
begin
  AYes := 0;
  ATotal := Length(A);
  For I := Low(A) To High(A) Do
    If A[i][ANum] = 'Yes' Then Inc(AYes);
  ANo := ATotal - AYes;
end;