Работа с графикой. Опции

[Atreides]

Пропустил лекцию по графики в Паскале, не знаю, как решить задачу, помогите!!!
Разработать программу, перемещающую четырехугольник в круге размером Z в правой половине экрана. Спасибо за внимание.

[Altair]

команда POS, что делает, ищет текст или заданный символ?

Команда POS
объявление:
function POS(substr,s):byte;
Она ищет в строке s, вхождение строки substr.
И возвращает номер того элемента строки с которого обнаруженно вхождение, или ноль если нет вхожднения.
Пример:
pos('abc','abcd')
вернет значение 1, т.к. вхождение обнаруженно с 1 символа.
pos('a','vfdgab')
вернет 5...
вместо строки substr
эта функция может искать и вхождение символа.

И как во второй задаче вписать в код, поиск определенного отрывка, например, МИРЕ, во вводимых словах?

Очень просто, все конечно реализуется с помощью функции POS.
Смотрите:
в этой строчке кода:
readln(AA[i]);
вводится очередное слово (ну там массив из строк, длинной 4... это ввод очередного элемента массива).
значит после ввода слова надо проверить вхождение:
If POS('МИРЕ',aa[i])<>0 then writeln('Вхождение обнаруженно');
Т.е. мы проверяем условие и если есть вхождение какого-то слова, то что-то делаем (в примере выводим строку: "вхождение обнаруженно")