Такая программа,хотелось бы чтобы при вводе да (при считывании b) запускался контейнер,но...

Question

Такая программа,хотелось бы чтобы при вводе да (при считывании b) запускался контейнер,но мне выдает что да-неизвестное имя.Программа в паскале.
var
a,b,c,d:string;
e,f,g,h:integer;
begin
write ('Здраствуй,как тебя зовут??');
read (a);
write ('Привет,');
write (a); write ('!');
write ('Сколько тебе лет?');
read (e);
if e>30 then write ('Мое уважение.')
else write ('Малявка!!!');
write ('Давай сыграем в игру??Я загадываю число,ты пытаешься отгадать?Числа от одного до 10!');
read (b);
if b= да then begin
randomize;
f := random (10);
read (g);
if g=f then write ('Ты угадал(а)!!!')
else ('Я победил :З');
end
end.
Если поможет пролайкаю и оценю как лучший ответ.

Answer 1

Var
  a,b,c,d:string;
  e,f,g,h:integer;
begin
  write('Здраствуй,как тебя зовут??');
  readln(a);
  writeln('Привет, ',a);
  write('Сколько тебе лет?');
  readln(e);
  if e>30 then writeln('Мое уважение.')
  else writeln('Малявка!!!');
  write('Давай сыграем в игру??Я загадываю число,ты пытаешься отгадать?Числа от 0 до 9!');
  readln(b);
  if b='да' then begin
    randomize;
    f := random (10);
    Write('Вводи! '); Readln(g);
    if g=f then writeln('Ты угадал(а)!!!')
    else writeln('Я победил! :З загадано ',f);
  end
end.