Помогите, пожалуйста, составить проект-программу "Тест по биологии. Тема: Зоология и ботаника" в паскале!!!

program test;Var o: integer;BeginWriteln('И так начинаем тестирование');WriteLn('Первый вопрос: Медленное животное из списка? 1)Зебра 2)Черепаха 3)Верблюд 4)Улитка');readln(o);Case o of1: writeln('Неверно, это не Зебра!');2: writeln('Неверно, это не черепаха!');3: writeln('Неверно, это не верблюд!');4: writeln('Правильно, это улитка!');Else writeln('Ошибка');end;End.Типо так, и продолжаешь...