Определить, есть ли в массиве столбец, в котором имеются одинаковые элементы

var
i,j,n,m:integer;
result:boolean;
arr:array [1..50,1..50] of integer;
begin
result:=false;
write('pls enter n ');
readln(n);
write('pls enter m ');
readln(m);
for i:=0 to n-1 do
begin
    for j:=0 to m-1 do
    begin
        arr[i,j]:=random(10);
        write(arr[i,j],' ');
    end;
writeln;
for j:=0 to m-1 do
begin
    for i:=0 to n-1 do
        if a[i,j]=a[1,j] then result:=true;
    if result=true then
    begin
    writeln('matrix has a column with the same elements');
    j:=m;
    end;
end;
end.

var
i,j,n,m:integer;
result:boolean;
arr:array [1..50,1..50] of integer;
begin
result:=true;
write('pls enter n ');
readln(n);
write('pls enter m ');
readln(m);
for i:=0 to n-1 do
begin
        for j:=0 to m-1 do
        begin
                arr[i,j]:=random(10);
                write(arr[i,j],' ');
        end;
writeln;
for j:=0 to m-1 do
begin
        for i:=0 to n-1 do
                if (a[i,j]<>a[1,j])and(result=true) then result:=false;
        if result=true then
        begin
        writeln('matrix has a column with the same elements');
        j:=m;
        end;
end;
end.

program qwe;
uses crt;
var
i,j,n,m:integer;
result:boolean;
arr:array [0..50,0..50] of integer;
begin
result:=true;
write('pls enter n ');
readln(n);
write('pls enter m ');
readln(m);
for i:=0 to n-1 do
begin
        for j:=0 to m-1 do
        begin
                arr[i,j]:=random(10);
                write(arr[i,j],' ');
        end;
writeln;
end;
for j:=0 to m-1 do
begin
        for i:=0 to n-1 do
                if (arr[i,j]<>arr[0,j])and(result=true) then result:=false;
        if result=true then
        begin
        writeln('matrix has a column with the same elements');
        j:=m;
        end;
end;
 
end.

if (arr[i,j]<>arr[0,j])and(result=true) then result:=false;

for i:=0 to n-1 do
                if a[i,j]=a[1,j] then result:=true;
        if result=true then
        begin
        writeln('matrix has a column with the same elements');
        j:=m;
        end;

if result=true then
        writeln('matrix has a column with the same elements');

const n_max=10;
      m_max=10;
 
type  TArr=array [1..n_max,1..m_max] of integer;
 
function Check (const m:TArr; j,n:integer):boolean;
var i,k:integer;
    fl:boolean;
begin
  i:=0; k:=0; fl:=false;
  for i:=1 to n do
    begin
      for k:=1 to n do
        if (m[i,j]=m[k,j]) and (i<>k) then
          begin
            fl:=true;
            Exit;
          end;
    end;
  Check:=fl;
end;
 
var i,j,n,m:integer;
    mas:TArr;
    fl:boolean;
 
begin
 
  write('Input n: ');
  readln(n);
  while n>=n_max do
    begin
      writeln('Error! Repeat!');
      readln(n);
    end;
 
  write('Input m: ');
  readln(m);
  while m>=m_max do
    begin
      writeln('Error! Repeat!');
      readln(m);
    end;
 
  writeln('Array:');
  Randomize;
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          mas[i,j]:=random(10);
          write(mas[i,j],' ');
        end;
      writeln;
    end;
 
  fl:=false;
 
  for j:=1 to m do
    if Check(mas,j,n) then fl:=true;
 
  if fl then
    writeln('Matrix has a columns with the same elements!');
  readln;
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k,l,p:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(100);
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
k:=0;{наличие нужного столбца}
j:=1;
while(j<=m) and(k=0) do{идем по столбцам}
 begin
  p:=0;{наличие совпадений}
  for i:=1 to n-1 do{идем вниз по столбцу}
  for l:=i+1 to n do{смотрим впереди}
  if a[i,j]=a[l,j] then p:=1;{если одинаковые, фиксируем}
  if p=1 then k:=1{есть столбец}
  else j:=j+1;{нет, смотрим следующий}
 end;
if k=1 then write('Столбец с одинаковыми элементами есть')
else write('Столбца с одинаковыми элементами нет');
readln
end.