задача

[lexa_7up]

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

uses crt;
const n=5; m=5;
var a: array [1..n,1..m] of integer;
i,j,e,k,kk: byte;
begin
writeln('Dan massiv');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(19)-9;
write(a[i,j]:4);
end;
writeln;
end;
for j:=1 to m do
begin
k:=0;
for i:=1 to n do
for e:=1 to n do
if (i<>e) and (a[i,j]=a[e,j])
then inc(k);
if k>0 then
begin
writeln ('в столбце ',j,' есть одинаковые элементы');
inc(kk);
end;
end;
if kk=0 then writeln('нет столбцов с одинаковыми элементами');
end.

помогите пожалуйста переделать программу. надо через процедуры и boolean

[VIK_aka_TOR]

помощь - это когда у тебя что то не получается и тебя направляют на путь истинный... а в твоем случае поиски халявы... стучи в аську... нарисууем прогу... недорого)

[Poma][a]

и оформляй код, [цензура]