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

program zz1;

const n = 5; m = 4;

var i, j, p, k: integer;

a: array[1 ... n, 1 ... m] of integer;

begin

for i:=1 to n do begin

for j:=1 to m do begin

a[i, j]:=random (10); / /заполнение матрицы случайными числами и вывод на экран

write (a[i, j]:3);

end;

writeln; / / переходим на новую строку для вывода ответа

end;

for j:=1 to m do

begin

for i:=1 to n - 1 do

for k:=i + 1 to n do

if a[i, j] = a[k, j] then p:=1;

if p = 1 then writeln (' в ', j,'-ом столбце есть одинаковые элементы ');

p:=0;

end;

end.