[Woldemar96]

Здравствуйте! Пожалуйста помогите решить задачку для курсовой работы. Заранее спасибо!
--->Решить задачу 3 (на строки) с помощью множеств
А вот собственно задачка:

Код:

uses crt;
const n=15;m=7;
var b,c:array[1..m,1..n] of integer;
    i,j,kj,k:integer;
    p,pk:boolean;
begin
  clrscr;randomize;
  writeln('Masiv B:');
  for i:=1 to m do
    begin
      for j:=1 to n do
        begin
          b[i,j]:=random(100);
          write(b[i,j]:3);
        end;
      writeln;
    end;
  p:=true;
  k:=0;
  for j:=1 to n do
   begin
    pk:=true;
    for i:=1 to m do
     for kj:=i+1 to m do
       if b[i,j]=b[kj,j] then pk:=false;
    if pk then
     begin
      p:=false;
      k:=k+1;
      for i:=1 to m do c[i,k]:=b[i,j];
     end;
   end;
  if p then writeln('Net stolbcov s neodinakovimi elementami') else
   begin
    writeln('Masiv C:');
    for i:=1 to m do
    begin
      for j:=1 to k do write(c[i,j]:3);
      writeln;
    end;
   end;
end.