В вашем коде есть несколько ошибок, которые необходимо исправить. Давайте рассмотрим их по порядку:

• Вы написали wtiteln, вместо writeln. Это опечатка, и программа не сможет выполнить вывод.

• Переменная k используется для подсчета баллов, но вы не инициализируете её перед началом работы. Необходимо добавить k := 0; в начале программы.
• Также, в некоторых местах вы перезаписываете значение k при чтении, например, readln(k);. Это неправильно, нужно использовать разные переменные для чтения ответов и для подсчета баллов.

• У вас есть конструкция end., которая не соответствует правильному закрытию блока. Вместо этого используйте end; для завершения блока if.

• Подсчет баллов выполняется после проверки правильности ответа, но вы не должны увеличивать k в любом случае. Увеличение должно происходить только при правильном ответе.

• Вы используете k для чтения ответов, это может привести к путанице. Лучше использовать разные переменные для этого.

Теперь давайте исправим ваш код, учитывая вышеперечисленные ошибки:

var a, b, c, d, f, k: integer;
begin
    k := 0;  // Инициализация переменной k
    writeln('В каком веке было введено право городов избирать органы власти?');
    writeln('в 11-12 веках');
    writeln('1. В 13 веке');
    writeln('2. в 11-12 веках');
    writeln('3. в 5 веке');
    readln(a);
    if a = 2 then
    begin
        writeln('молодец!');
        k := k + 1;  // Увеличиваем k только при правильном ответе
    end
    else
        writeln('Неправильно');
    
    writeln('На ком основывалась светская власть в Средневековье?');
    writeln('короли');
    writeln('1. короли');
    writeln('2. Церковь');
    writeln('3. Крестьяне');
    readln(b);
    if b = 1 then
    begin
        writeln('молодец!');
        k := k + 1;
    end
    else
        writeln('Неправильно');
    
    writeln('Какую власть имел орден св. Доминика?');
    writeln('преследовать еретиков');
    writeln('1. не подчинятся церкви');
    writeln('2. преследовать еретиков');
    writeln('3. вести завоевательные походы');
    readln(c);
    if c = 2 then
    begin
        writeln('молодец!');
        k := k + 1;
    end
    else
        writeln('Неправильно');
    
    writeln('Какие государства были образованы на завоеванных территориях во время крестовых походов?');
    writeln('Иерусалимское королевство, Княжество Антиохия');
    writeln('1. Финикия');
    writeln('2. Иерусалимское королевство, Княжество Антиохия');
    writeln('3. королевство Крестоносцев');
    readln(d);
    if d = 2 then
    begin
        writeln('молодец!');
        k := k + 1;
    end
    else
        writeln('Неправильно');
    
    writeln('Что было важнейшим орудием Церкви против еретиков?');
    writeln('Инквизиция');
    writeln('1. Законы');
    writeln('2. Вера');
    writeln('3. Инквизиция');
    readln(a);  // Используем другую переменную
    if a = 3 then
    begin
        writeln('молодец!');
        k := k + 1;
    end
    else
        writeln('Неправильно');
    
    writeln('Кто такой Фома Аквинский?');
    writeln('Теолог признанный церковью');
    writeln('1. Теолог');
    writeln('2. Еретик');
    writeln('3. Церковный служитель');
    readln(a);  // Используем другую переменную
    if a = 1 then
    begin
        writeln('молодец!');
        k := k + 1;
    end
    else
        writeln('Неправильно');
    
    // Оценка
    if k = 6 then writeln('Вы набрали ', k, ' баллов, ваша оценка 5');
    if k = 5 then writeln('Вы набрали ', k, ' баллов, ваша оценка 4');
    if k = 4 then writeln('Вы набрали ', k, ' баллов, ваша оценка 3');
    if k = 3 then writeln('Вы набрали ', k, ' баллов, ваша оценка 2');
    if k = 2 then writeln('Вы набрали ', k, ' баллов, ваша оценка 1');
    if k = 1 then writeln('Вы набрали ', k, ' баллов, ваша оценка 0');
end.

Теперь ваш код должен работать корректно. Убедитесь, что вы тестируете его и проверяете, что все ответы обрабатываются правильно.