сделать экспертную систему на языке программирования (паскаль от )

Код программы:

var a:integer;

begin

 write('Введите возраст автовладельца: ');

 readln(a);

 if (a > 40) then begin

    writeln('Выберите место эксплуатации:');

    writeln('1. Город');

    writeln('2. Сельская местность');

    readln(a);

    if (a = 1) then begin

       write('Введите стаж: ');

       readln(a);

       if (a > 10) then

         writeln('Страховать')

       else

         writeln('Не страховать')

    end

    else

       writeln('Страховать')

 end

 else begin

    writeln('Езда без аварий?');

    writeln('1. Да');

    writeln('2. Нет');

    readln(a);

    if (a = 1) then

      writeln('Страховать')

    else begin

      writeln('Выберите тип автомобиля:');

    writeln('1. Минивэн');

    writeln('2. Спорткар');

    readln(a);

    if (a = 1) then

      writeln('Страховать')

    else

      writeln('Не страховать')

    end;

 end;

end.