Программа для составления кроссворда - Pascal

Формулировка задачи:

Люди надо написать программу для сост. кроссворда помогите хотя бы начало а то ваще не врубаюсь.

Решение задачи: «Программа для составления кроссворда»

Листинг программы

Program kross;
uses graph,crt,mouse;
var gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
setbkcolor (4); setcolor(blue);
rectangle(7,7,630,470);
rectangle(10,10,626,468);
settextstyle(5,0,0); setcolor(7);
outtextxy(50,50,'Kyrsovoy proekt');
outtextxy(100,150,'Tema: Krossvord');
outtextxy(100,250,'Gruppa: T*****');
outtextxy(100,300,'Vypolnil: ****');
rectangle(495,450,585,405);
outtextxy(520,420,'NEXT');
repeat
readmouse;
if (mousex<495); and (mousex>585); and (mousey<450); and (mouse>405); and leftpressbutton then
begin hidemouse; clrscr; showmouse;
readln;
end.

Объяснение кода листинга программы

Программа использует библиотеки graph, crt и mouse.
Переменные gd и gm инициализируются значением detect, которое, предположительно, является идентификатором графического дисплея.
Устанавливается цвет фона и текста на синий и серый соответственно.
Строятся два прямоугольника, которые служат рамкой для кроссворда.
Выводится текст Kyrsovoy proekt и Tema: Krossvord в двух отдельных прямоугольниках.
Выводится текст Gruppa: T***** и Vypolnil: **** также в двух отдельных прямоугольниках.
Строится большой прямоугольник, который охватывает всю область под кроссвордом.
Выводится текст NEXT в правом верхнем углу большого прямоугольника.
Программа в цикле ожидает нажатия мыши.
Если координаты мыши находятся внутри области большого прямоугольника и кнопка мыши нажата, то скрывается курсор мыши, очищается экран и выводится сообщение NEXT.
Цикл повторяется до тех пор, пока условие нажатия мыши выполняется.