Как считывать вопросы и ответы в программе тестирования

uses crt; 
const
QCNT = 3;
VCNT = 4;
 
type
TTest = record
vopros: string;
ball: real;
otveti: array[1..VCNT] of string;
correct: integer;
end;
 
var
QA : array [1..QCNT] of TTest;
i,j,p: integer;
s: real;
 
begin
qa[1].vopros := 'Что такое алгоритм?';
qa[2].vopros := 'Что из перечисленного не относиться к свойствам алгоритма?';
qa[3].vopros := 'Как называется алгоритм в котором команда или серия команд повторяется?';
 
 
qa[1].otveti[1] := 'конечный список объектов,  необходимых для выполнения конкретной работы в установленный срок';
qa[1].otveti[2] := 'конечный набор правил, который определяет последовательность операций для решения конкретного множества задач';
qa[1].otveti[3] := 'набор инструкций, описывающих порядок действий исполнителя для достижения результата, имеющий особые правила';
qa[1].otveti[4] := 'последовательность команд, задаваемая пользователем, команды исполняются компьютером в строго определенном порядке';
 
qa[2].otveti[1] := 'массовость';
qa[2].otveti[2] := 'конечность';
qa[2].otveti[3] := 'дискретность';
qa[2].otveti[4] := 'актуальность';
 
qa[3].otveti[1] := 'циклический';
qa[3].otveti[2] := 'линейный';
qa[3].otveti[3] := 'разветвляющийся';
qa[3].otveti[4] := 'бесконечный';
 
 
 
qa[1].correct := 2;
qa[2].correct := 4;
qa[3].correct := 3;
 
s := 0;
for i:=1 to QCNT do begin
writeln('VOPROS: '+qa[i].vopros);
for j:=1 to VCNT do writeln(qa[i].otveti[j]);
readln(p);
if p=qa[i].correct then s := s + 1;
end;
writeln(s:3);
readln;
end.