Организовать вывод вопросов и ответов в программе тестирования

var
 
 answer, k, n, l, point: integer;
 questions: array [1..3] of string;
 answers: array [1..12, 1..4] of string;
 correct_answers: array [1..3] of integer;
 
begin
 questions[1]:='Что такое алгоритм?';
 answers[1,1]:='конечный список объектов,  необходимых для выполнения конкретной работы в установленный срок';
 answers[1,2]:='конечный набор правил, который определяет последовательность операций для решения конкретного множества задач';
 answers[1,3]:='набор инструкций, описывающих порядок действий исполнителя для достижения результата, имеющий особые правила';
 answers[1,4]:='последовательность команд, задаваемая пользователем, команды исполняются компьютером в строго определенном порядке';
 correct_answers[1]:=2;
 
 questions[2]:='. Что из перечисленного не относиться к свойствам алгоритма?';
 answers[2,1]:='массовость';
 answers[2,2]:='конечность';
 answers[2,3]:='дискретность';
 answers[2,4]:='актуальность';
 correct_answers[2]:=4;
 
 questions[3]:='Как называется алгоритм в котором команда или серия команд повторяется?';
 answers[3,1]:='циклический';
 answers[3,2]:='линейный';
 answers[3,3]:='разветвляющийся';
 answers[3,4]:='бесконечный ';
 correct_answers[3]:=1;
 
 writeln('Ответом на вопрос теста является номер варианта ответа');  
 point := 0; k := 1;
 
  begin
    for l := 1 to k do    
      if n <>  correct_answers[l] then
      begin
        correct_answers[k] := n; k := k + 1; 
        begin
         
          writeln('ТЕМА ', questions[n+1]);
       
          writeln('    1)  ', answers[n+1,1]);
          writeln('    2)  ', answers[n+1,2]);
          writeln('    3)  ', answers[n+1,3]);
          writeln('    4)  ', answers[n+1,4]);
          write('ОТВЕТ: '); readln(answer); writeln('');
          if answer = correct_answers[n+1] then point := point + 1;
        end;
      end
      else k := k;
  end;
  writeln('Ваш результат ', point, ' баллов');
end.