Создание теста с выводом и подсчетом результата

const
  m = 10;
  n = 4;
  q: array [1..m, 0..n] of string = (
    ('Фамилия первого президента США?', 'Вашингтон', 'Манхеттен', 'Нью-Йорк', 'Бэтмен'),
    ('Кличка коня Александра Македонского?', 'Цеденбал', 'Буцефал', 'Децибелл', 'Задолбал'),
    ('Река с самым большим водопадом Америки?', 'Фудзияма', 'Амнезия', 'Ниагара', 'Мандрагора'),
    ('Командир Ордынских войск на Куликовом поле?', 'Мазай', 'Банзай', 'Мамай', 'Думгай'),
    ('Мускусная крыса?', 'Чучундра', 'Ондатра', 'Лахудра', 'Массандра'),
    ('Кто написал "Лунную сонату"?', 'Биткоин', 'Бит Ховен', 'Сомнамбул', 'Бетховен'),
    ('Название киборга, пытавшегося убить Сару Коннор?', 'Терминатор', 'Чебуратор', 'Шварценеггер', 'Арматур-Батыр'),
    ('Лекарственное растение семейства крестоцветных?', 'Школьный ранец', 'Пастушья сумка', 'Министерский портфель', 'Ядерный чемоданчик'),
    ('Автор основного закона гидростатики?', 'Фортран', 'Бейсик', 'Паскаль', 'C++'),
    ('Кличка пуделя Мальвины?', 'Охламон', 'Арлекин', 'Артемон', 'Д''Артаньян'));
  a: array[1..m] of integer = (1, 2, 3, 3, 2, 4, 1, 2, 3, 3);
var
  i, j, k, t: integer;
begin
  for i := 1 to m do
    begin
      writeln(q[i, 0]);
      for j := 1 to n do writeln(j:2, '. ', q[i, j]);
      write('Ваш ответ? ');
      readln(t);
      case abs(t - a[i]) of
        0:
          begin
            writeln('Вам удалось нажать нужную клавишу');
            inc(k)
          end;
        1: writeln('Нужно было нажать на соседнюю клавишу')
        else writeln('Вы промахнулись')
      end
    end;
  writeln('Правильных ответов: ', k, ', оценка: ', k div 2 + 1);
  case k of
    0: writeln('Твоя неправильно совсем');
    1..3: writeln('Нажатие клавиш наугад не помогло');
    4..6: writeln('Вам удалось правильно ответить на простые вопросы');
    7..9: writeln('В чём-то Вы заблуждаетесь');
    10: writeln('Надо было отнять у Вас смартфон!');
  end
end.