Двумерный массив и файл

[spamer]

Всем привет. Столкнулся с проблемой.
Есть двумерный массив, который читается из текстового файла(содержание файла):
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

Читаю вот так:

  mas : array [1..20,1..10] of integer;
  i,j:integer;
  f:textfile;

assignfile(f,'Test.txt');
reset(f);
for i:=1 to 20 do
for j:=1 to 10 do
read(f,mas[i,j]);
closefile(f)

Мене надо из этого массива построить карту. Я просто не пойму как мене на форме нарисовать сетку по этому массиву и что бы если элемент массива равен 1, то квадрат этой сетки зарисовать каким то цветом ??? Подскажите пожалуйста.

Пытаюсь прорисовать вот так:

for i := 1 to 20 do
for j := 1 to 10 do
begin
if mas[i,j] = 1 then
Image1.Canvas.Brush.Color := clRed
else
if mas[i,j] = 0 then
Image1.Canvas.Brush.Color := clWhite;

Image1.Canvas.Rectangle((i+1)*10,(j+1)*10,i*10,j*10);
end;

Оно рисует, но не правильно. Подскажите, что тут надо изменить???

[Serge_Bliznykov]

например, рисовать на канве...

procedure TForm1.FormPaint(Sender: TObject);
var x,y,i,j : integer;
  delta : integer;
begin
  delta := 10; {квадратики будут по 10 пикселей}
  Canvas.Pen.Color := clBlue;
  Canvas.Pen.Style := psSolid;
  Canvas.Brush.Color := clRed;

  for i:=1 to 20 do
  for j:=1 to 10 do
  begin
    x:= (i-1)*delta;
    y:= (j-1)*delta;
    if mas[i,j]=1 then begin
          Canvas.Brush.Style := bsSolid;
          Canvas.Brush.Color := clRed;
       end
       else
         Canvas.Brush.Style := bsClear;
    Canvas.Rectangle(x, y, x + delta, y + delta);
  end;
end;

Добавлено.
пока писал пример кода рисования, Вы уже выложили свой вариант...
попробуйте для начала мой вариант. Если проблема останется — пишите, будем вместе разбираться...

[spamer]

Все равно такое рисует как и с моим кодом. Вот cкрин того что оно рисует

[Serge_Bliznykov]

читаете неправильно.
поменяйте местами i и j :

  for j:=1 to 10 do
  for i:=1 to 20 do
     read(f,mas[i,j]);

[spamer]

Serge_Bliznykov спасибо, помогло.

P.S. Я уже начал догадываться, что проблема где то в считывании массива, но не смог понять где именно.