const
  arr: array of array of string = (('Омск основан раньше чем Уфа?',
                                    'Олени любят есть бананы?',
                                    'Рек Юкон длиннее чем река Нигер',
                                    'Цугцванг - это шахматный термин?',
                                    'Тюльпан растет из луковки?'),
                                    ('N', 'Y', 'N', 'Y', 'Y'));

var
  ch: char;

begin
  var count := 0;
  for var i := 0 to Length(Arr[0]) - 1 do
  begin
    System.Console.CursorLeft := 35;
    System.Console.WriteLine('Вопрос №' + Succ(i));
    System.Console.WriteLine('>>> ' + Arr[0, i]);
    System.Console.Write('Выберите ответ (Y/N): ');
    repeat
      Ch := UpCase(System.Convert.ToChar(System.Console.ReadLine()));
    until Ch in ['Y', 'N'];
    if Ch = Arr[1, i] then count += 1;
  end;
  System.Console.WriteLine();
  System.Console.WriteLine('Вы набрали {0} балла(ов) из {1} возможных...', Count, Length(Arr[0]));
end.