Параметр цикла for должен описываться в заголовке цикла, как исправить?

program test;
uses crt;
var i,right,mark,v: longint;
    answer,true1,true2,true3,true4,true5: char;
begin
  right:=0;   // Счётчик правильных ответов
  v:=5;       // Количество вопросов
  true1:='a'; // Правильный ответ на вопрос №1 (a,b,c)
  true2:='b';
  true3:='c';
  true4:='a';
  true5:='b';
for i:=1 to v do begin
      if i=1 then begin
         writeln('Предмет информатики — это');
         writeln('a) способы накопления, хранения, обработки, передачи информации');
         writeln('b) устройство робота');
         writeln('c) язык программирования');
         read(answer);
         if answer=true1 then inc(right);
      end;
      if i=2 then begin
         writeln('Тройками из нулей и единиц можно закодировать … различных символов');
         writeln('a) 6');
         writeln('b) 8');
         writeln('c) 5');
         read(answer);
         if answer=true2 then inc(right);
      end;
      if i=3 then begin
         writeln('Механическое устройство, позволяющее складывать числа, изобрел');
         writeln('a) П. Нортон');
         writeln('b) Д. Нейман');
         writeln('c) Б.Паскаль');
         read(answer);
         if answer=true3 then inc(right);
      end;
      if i=4 then begin
         writeln('Архитектура компьютера — это');
         writeln('a) описание устройства и принципов работы компьютера, достаточное для понимания пользователя');
         writeln('b) Техническое описание деталей устройств компьютера');
         writeln('c) описание устройств для ввода-вывода информации');
         read(answer);
         if answer=true4 then inc(right);
      end;
      if i=5 then begin
         writeln('К устройствам накопления информации относится');
         writeln('a) ПЗУ');
         writeln('b) ВЗУ');
         writeln('c) Процессор');
         read(answer);
         if answer=true5 then inc(right);
      end;
  end;
  if right>1 then mark:=right
  else mark:=2; // Оценка, если вопросов больше 5, то там другая формула.
  writeln('Ваша оценка ',mark,'. Вы дали ',right,' правильных ответов');
end.