Paskal.Матрица

[Стасек]

Помогите пожалуйста,никак не выходит.
Данна матрица размерности m < 20,элементы которой 0,1,5,11 заполняются случайно.Надо подсчитать сколько в матрице квадратов,где все 4 числа различны и выделить их цветом или еще как.

Решил частично.Подсчитал кол-во квадратов.Принцип такой:если в квадрате сумма = 17,то ++.А выделить цветом не выходит((((
Пожалуйста,помогите.
Вот код программы

program matr;
uses crt;
type mas=array [1..20,1..20] of real;
var uk:mas; m,i,j,r,k:integer;
con:array [1..4] of real;

begin
k:=0;
randomize;
con[1]:=0;
con[2]:=1;
con[3]:=5;
con[4]:=11;
writeln ('vvedite m m<20 ');readln(m);
{getmem (uk,sizeof(real)*m*m);}
for i:=1 to m do
for j:=1 to m do
begin
r:=random(4) + 1;
case r of
1: uk[i,j]:=0 ;
2: uk[i,j]:=1 ;
3: uk[i,j]:=5 ;
4: uk[i,j]:=11 ;
end;
end;

For i:=1 to m-1 do

for j:=1 to m-1 do
begin
If ((uk[i,j]+uk[i+1,j]+uk[i,j+1]+uk[i+1,j+1])=17) then k:=k+1;
end;

for i:=1 to m do
begin
writeln;
for j:=1 to m do write(uk[i,j]:5:0);
end;
Writeln(' ',k);
readln;
end.

[darkstarx]

Вам сначала необходимо после генерации матрицы вывести ее на экран например черными симвлоами по белому, потом выполнить тот самый ваш цикл

for j:=1 to m-1 do
begin
If ((uk[i,j]+uk[i+1,j]+uk[i,j+1]+uk[i+1,j+1])=17) then k:=k+1;
end;

но только внутри помимо увеличения счетчика k выполнить перерисовку четырех элементов квадрата например синим цветом, вместо черного. Кстати счетчик здесь может вам помочь при выборе цвета для выделения очередного квадрата (например color:=k+1)

в конце показать на экран число k. млм у вас технические проблемы с выводом на экран текста другим цветом?

[Стасек]

Спасибо вам большое!
а как осуществить перерисовку четырех элементов?И потом вывести что нужно синим,а остальное черным?

[Стасек]

Неужели никто не поможет бедному дервишу?(((