Максимальное количество квадратов=)

[Accroach]

Задача: Найти максимальное количество цветных квадратов одного цвета стоящих рядом, но не по диагонали. Количество квадратов вводится с клавиатуры. Но задача не в этом, нужно подогнать размер окна под размер экрана, так чтобы квадраты были максимально большого размера.
Пробовал, но как то некорректно отображается, с линиями получается, а вот со цветом нет.

uses GraphABC,Crt;
var  q,i,j,number,k,m,l: integer;
     a,tmp: array[1..102,1..102] of integer;
function Color(i,j,l: integer): integer;
           var n:integer;
           begin
                n:=0;
                if a[i,j+1]=l then
                   begin
                        a[i,j+1]:=0;
                        n:=n+1+color(i,j+1,l);
                   end;
                   
                if a[i,j-1]=l then
                   begin
                        a[i,j-1]:=0;
                        n:=n+1+color(i,j-1,l);
                   end;

                if a[i+1,j]=l then
                   begin
                        a[i+1,j]:=0;
                        n:=n+1+color(i+1,j,l);
                   end;
                   
                if a[i-1,j]=l then
                   begin
                        a[i-1,j]:=0;
                        n:=n+1+color(i-1,j,l);
                   end;
                Result:=n;

            end;

begin
     setwindowwidth(500);
     setwindowheight(700);

     repeat
     writeln('Введите сторону квадрата');
     readln(q);
     if q<=0 then writeln('число должно быть больше нуля')
     until q>0;
     
     for i:=2 to q+1 do
         for j:=2 to q+1 do a[i,j]:= random(10)+1;
               //readln(a[i,j]);
     {for i:=1 to q+2 do
         begin
              for j:=1 to q+2 do write(a[i,j],' ');
              writeln();
         end;}
     for i:=2 to q+1 do
         for j:=2 to q+1 do
         begin
              tmp[i,j]:=RGB(100*a[i,j],50*a[i,j],80*a[i,j]);
              SetBrushColor(tmp[i,j]);
              FillRect(round((i-2)*500/q),(round((j-2)*500/q)+200),round((i-1)*500/q),(round((j-1)*500/q)+200));
         end;
         
     number:=1;
     k:=0;
     
     for i:=2 to q+1 do
         for j:=2 to q+1 do
             begin
                  if a[i,j]<>0 then
                     begin
                          l:=a[i,j];
                          a[i,j]:=0;
                          m:=color(i,j,l)+1;
                          if m=k then number:=number+1;
                          if m>k then
                             begin
                                  if number>1 then number:=1;
                                  k:=m;
                             end;
                     end;
             end;
             
     writeln('Максимальное количество квадратов:',k);
     writeln('Повторяется ', number);
     
end.

Заранее спасибо.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Accroach]

Есть хоть какие-нибудь идеи по проблеме?