Помогите с тестом в паскале

program Variant2;
uses crt;
var k:integer;
s:string;
begin
k:=0;
writeln('Вопросы для теста по инструментам Photoshop');
writeln;
begin
writeln('1.Какие инструменты используются для создания контура выделения');
writeln;
writeln('a)Кисть, ластик, лассо');
writeln;
writeln('b)Кисть (при работе в режиме маски), ластик, лассо');
writeln;
writeln('c)Кисть (при работе в режиме маски), лассо, волшебная палочка,');
writeln;
writeln('d)Лассо');
readln(s);
if s='c' then
k:=k+1;
end;
ClrScr;
begin
writeln('2.Какой инструмент используется для перемещения фрагментов изображения по документу ');
writeln;
writeln('a)Рука');
writeln;
writeln('b)Перемещение');
writeln;
writeln('c)Кисть');
writeln;
writeln('d)Ведро');
readln(s);
if s='b' then
k:=k+1;
end;
ClrScr;
begin
writeln('3.Какие инструменты используются для рисования в Photoshop');
writeln;
writeln('a)Карандаш, кисть, ластик, заливка цветом, градиент');
writeln;
writeln('b)Карандаш, ластик, кисть, градиент');
writeln;
writeln('c)Карандаш, ластик, градиент, заливка цветом');
writeln;
writeln('d)Карандаш, ластик');
readln(s);
if s='a' then
k:=k+1;
end;
ClrScr;
begin
writeln('4.Какой инструмент используется для выделения областей схожих по цветовому оттенку');
writeln;
writeln('a)Полигональное лассо');
writeln;
writeln('b)Магнитное лассо');
writeln;
writeln('c)Волшебная палочка');
writeln;
writeln('d)Волшебный ластик');
readln(s);
if s='c' then
k:=k+1;
end;
ClrScr;
begin
writeln('5.Какие инструменты используются для выделения прямоугольных объектов');
writeln;
writeln('a)Полигональное лассо, прямоугольная область, маска');
writeln;
writeln('b)Прямоугольная область, волшебная палочка, магнитное лассо');
writeln;
writeln('c)Полигональное лассо, прямоугольная область');
writeln;
writeln('d)Прямоугольная область');
readln(s);
if s='c' then
k:=k+1;
end;
ClrScr;
begin
writeln('6.Какие режимы создания контура выделения используются в Photoshop');
writeln;
writeln('a)Создание нового, добавление к существующему, пересечение, вычитание');
writeln;
writeln('b)Создание нового, добавление к существующему, умножение с существующим, пересечение, вычитание ');
writeln;
writeln('c)Создание нового, добавление к существующему, деление на существующий, пересечение, вычитание');
writeln;
writeln('d)Все неверно');
readln(s);
if s='a' then
k:=k+1;
end;
ClrScr;
begin
writeln('7.Для работы с каким видом графики предназначен Photoshop');
writeln;
writeln('a)Растровая графика, нет возможности работать с векторными контурами');
writeln;
writeln('b)Векторная графика, есть инструмент для выполнения простейших действий над растровыми изображениями');
writeln;
writeln('c)Растровая графика, имеются инструменты для работы с векторными контурами и простейшими 3D формами');
writeln;
writeln('d)Только векторная графика');
readln(s);
if s='c' then
k:=k+1;
end;
ClrScr;
begin
writeln('8.Выберите верное утверждение');
writeln;
writeln('a)Фоновый слой не создается автоматически, Фоновый слой заблокирован от перемещений и трансформаций (масштабирование, поворот)');
writeln;
writeln('b)Фоновый слой создается автоматически. Фоновый слой заблокирован от перемещений, но может быть трансформирован (масштабирование, поворот)');
writeln;
writeln('c)Фоновый слой создается автоматически, заблокирован от перемещения и трансформирования, использовать ластик запрещено.');
writeln;
writeln('d)Фоновый слой создается автоматически, заблокирован от перемещения и трансформирования, при использовании ластика, стертые области заливаются цветом заднего плана');
readln(s);
if s='d' then
k:=k+1;
end;
ClrScr;
Writeln('Баллов набранo ', k);
writeln;
readln(k);
if k<=4 then write('У вас оценка 2!');
if k in [4,5,6] then write('У вас оценка 3');
if k in [7,8] then write('У вас оценка 4');
if k in [9] then write('У вас оценка 5!');
end.