TQuestion = record
  Text, Ans1, Ans2, Ans3, Ans4: string;
  RightAns: 1..4;
end;
...
QArray: array[1..10] of TQuestion;

const
  Tqs: array[1..5] of string = ('Vopros 1','Vopros 2','Vopros 3','Vopros 4','Vopros 5');
  Tans: array[1..5] of boolean = (true,true,false,true,false);

var
  s: string;
  i,count: integer;

begin
  writeln('Otvet: y or n');
  for i := 1 to 5 do
    begin
      writeln(Tqs[i]);
      readln(s);
      if ((s = 'y')and(Tans[i]))or((s = 'n')and(not Tans[i])) then
        count := count + 1;
    end;
  writeln('Right answers: ',count);
  readln;
end.