Составить программу - тест, которая запрашивает имя и предлагает ответить на три вопроса. отвечать можно "да" или "нет". при вводе другого ответа - возврат к вопросу. в итоге программа выдает количество верных ответо

Var     o: string;     i,k: byte;     b,po: array[1..3] of string; begin b[1]: ='2 * 2 = 5 ? '; po[1]: ='нет'; b[2]: ='оператор read вводит данные? '; po[2]: ='да'; b[3]: =' победил в войне 1812 года? '; po[3]: ='нет'; k: =0; for i: = 1 to 3 do       begin       writeln(b[i]);       readln(o);       o: =lowercase(o);       while (o < > 'да')and(o < > 'нет') do             begin             write('попробуйте ещё раз: '); readln(o);             o: =lowercase(o);             end;       if po[i] = o then k: =k+1;       end; writeln('количество правильных ответов: ',k); end.