Графика Опции

[Mnogosisa_pravda_ona]

Хочу сделать любую настольную игру,но пока не понимаю как нарисовать игровое поле.Решил нарисовать поле с размером 8Х8 с помощью rectangle,первая строка получилось,а вторая рисует после 1 нарисованной строки.как сделать нормально?

Код

uses graph;
var gd,gm,i,k:integer;
begin
gd:=detect;
Initgraph(gd,gm,'');
k:=0
for i :=1 to 9 do
begin
setcolor(3);
ink(k,38);
rectangle(38,38,k,76);
end;
for i :=1 to 9 do
begin
setcolor(3);
ink(k,38);
rectangle(38,76,k,114);
end;
readln;
closegraph
end.

Сообщение отредактировано: Mnogosisa_pravda_ona - 17.01.2009 19:30