Программа выдает ошибку "встречено 'DO' а ожидался идентификатор"

Program lab2;
Var
DO: string := 'DO';
IN: string := 'IN';
FT: string := 'FT';
a,b,c: string;
Begin
writeln('Введите переменную');
readln(a);
if a= 'DO' then
writeln('Курс доллара растет или падает?');
readln(b);
if b= 'растет' then
writeln('IN падает ST растет')
else writeln('IN растет ST падает');
if a= 'IN' then
writeln('Процентные ставки растут или падают?');
readln(b);
if b= 'растет' then
writeln('ST падает')
else writeln('ST растет');
if a= 'FT' then
writeln('Процентные ставки резерва растут или падают?');
readln(b);
if b= 'падает' then
writeln('Добавить или изъять резерв?');
readln(c);
if c= 'добавить' then
writeln('IN падает');
end.

Program lab2;
const
  DO1: string = 'DO';
  IN1: string = 'IN';
  FT: string = 'FT';
var
  a,b,c: string;
Begin
  writeln('Введите переменную: ');
  readln(a);
  if a= 'DO' then
    writeln('Курс доллара растет или падает?');
  readln(b);
  if b= 'растет' then
    writeln('IN падает ST растет')
  else writeln('IN растет ST падает');
  if a= 'IN' then
    writeln('Процентные ставки растут или падают?');
  readln(b);
  if b= 'растет' then
    writeln('ST падает')
  else
    writeln('ST растет');
  if a= 'FT' then
    writeln('Процентные ставки резерва растут или падают?');
  readln(b);
  if b= 'падает' then
    writeln('Добавить или изъять резерв?');
  readln(c);
  if c= 'добавить' then
    writeln('IN падает');
end.