процедуры

uses crt;
const nmax=20;
type mas=array[1..nmax] of integer;//массив - столбец матрицы
     matr=array[1..nmax] of mas;//матрица - массив столбцов
procedure Razn(a:mas;n:byte;var f:boolean);//проверяем на разные
var i,j:byte;
begin
f:=true;
i:=1;
while (i<=n)and f do
 begin
  j:=1;
  while (j<=n)and f do
   begin
    if(a[j]=a[i])and(i<>j) then f:=false
    else j:=j+1;
   end;
  if f then i:=i+1;
 end;
end;
procedure Kol(a:matr;n,m:byte);//считаем столбцы
var i,k:byte;
    f:boolean;
begin
k:=0;
for i:=1 to m do
 begin
  Razn(a[i],n,f);
  if f then k:=k+1;
 end;
write('Количество столбцов из разных элементов=',k);
end;
var a:matr;
    n,m,i,j,k:byte;
    b:boolean;
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];
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(50);
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[j,i]:4);
  writeln;
 end;
Kol(a,n,m);
readln
end.