В двумерном числовом массиве размером n*m, определить, есть ли столбец, в котором имеются одинаковые элементы (Delphi)

[Arnold9131]

Программа на Delphi

Дан двумерный массив размером n*m, заполненный случайными числами. Определить, есть ли в данном массиве столбец, в котором имеются одинаковые элементы

[Sciv]

Показывай, как массив вводишь (с) Stilet

[interacia]

uses
  SysUtils;
var
j,i,ii,M,N:integer;
bol:boolean;
a: array [1..10,1..10] of integer;
begin
// дан ваш массив к примеру
N:=6; M:=6;
 for i:=1 to M do begin
 for j:=1 to N do a[i,j]:=random(100);
 end;

 for i:=1 to M do begin
 writeln('');
 for j:=1 to N do write(a[i,j]:3,' ');
 end;
////////////////////////////////////////////////
// Решение
bol:=false;
 writeln('');
 for j:=1 to N do
   begin
for i:=1 to M do
for ii:=i+1 to M do
if a[i,j]=a[ii,j] then bol:=true;
   end;
writeln('Есть ли в данном массиве столбец в котором имеются одинаковые элементы?');
if bol then writeln('Да есть')
else writeln('Нет Нету');
// ответ
readln;
end.

Консольный режим Delphi.

[Arnold9131]

мне нужно в графическом виде, т.е. и чтоб еще компонент Stringrid присутствовал для показа массива