Японские кроссворды (помогите пожалуйста!), Помогите с курсовой! Опции

[Alex Burn]

Здравствуйте! Я никогда не был ни на каких форумах(поэтому не судите пожалуйста строго).

Меня сюда привела моя курсовая по программированию:

Тема работы: «Программирование графики в Турбо Паскале. Программа для решения японских головоломок(читай "кроссвордов")».

Содержание задания: Составить программу для решения японских кроссвордов. Программа должна уметь предложить пользователю кроссворд на выбор (не менее 15), проверить правильность его решения; позволять создавать собственные рисунки для кроссвордов и запоминать их в файле.

Мне еще не давали лекций по графике, а программу нужно предоставить довольно скоро.

Помогите чем сможете.

Заранее всем благодарен!

[Alex Burn]

Здравствуйте еще раз! Не могли бы вы просмотреть следующий фрагмент:

program japanese_crossword;
uses crt, graph;
 const r=11;
 var p: 0..1; a,b: array[0..r,0..r] of 0..1;
     i,j,n,k1,k2,ss,x,y,gm,gd:integer; c:char;
 begin
  detectgraph(i,j); initgraph(i,j,'c:/bp/bgi');
  begin
  gm:=vgahi; setgraphmode(gm); setlinestyle(0,0,1); setcolor(4);
  for i:=0 to r-1 do
  begin
   line(20+i*20,20,20+i*20,r*20);
   line(20,20+i*20,r*20,20+i*20);
  end;
  x:=10; y:=10;
  repeat
   c:=readkey; if c=#0 then c:=readkey;
   case c of
    #72 : begin
           setcolor(0); circle(x,y,2); y:=y-20; setcolor(15); circle(x,y,2);
          end;

    #80 : begin
           setcolor(0); circle(x,y,2); y:=y+20; setcolor(15); circle(x,y,2);
          end;

    #75 : begin
           setcolor(0); circle(x,y,2); x:=x-20; setcolor(15); circle(x,y,2);
          end;

    #77 : begin
           setcolor(0); circle(x,y,2); x:=x+20; setcolor(15); circle(x,y,2);
          end;

    #13 : begin
           floodfill(x,y,4); a[(x-5) div 10,(y-5) div 10]:=1;
           b[(x-5) div 10,(y-5) div 10]:=1;
          end;

    #32 : begin
           setfillstyle(1,5); bar(x-9,y-9,x+9,y+9);
           a[(x-5) div 10,(y-5) div 10]:=0;
           b[(x-5) div 10,(y-5) div 10]:=0;
           setfillstyle(1,15);
          end;
   end; {case}
    until c=#27;
    setcolor(0); circle(x,y,2);
   end;
 end.

Выводит сеточку, закрашивает клеточки. Не могли бы вы подсказать как в графическом режиме сделать циферки как на рисунке, который я раньше выкладывал?

Да, и еще. Подскажите пожалуйста как вывести сеточку, в которой число строк и столбцов не обязательно совпадают (в отличие от этого фрагмента).

P.S. Лекций по графике так и не было, так что учусь по книжкам.