Задачка с множествами Опции

[ilua_great]

Вообшем есть задача на множества:

Дано произвольное множество целых чисел M в интервале 1..255 и массив 10х10, содержащий значения также в интервале 1..255. Удалить из исходного множества все элементы, входящие в массив.

И есть недоделаное решение:

program zzz3;
USES
CRT;
VAR
  m1:array[1..255] of integer;
  m2:array[1..20,1..20] of integer;
  i,j  :integer;
BEGIN
  ClrScr;
  randomize;
  writeln('MASSIV 10x10');

  for I:=1 to 10 do
  Begin
    writeln;
    for J:=1 to 10 do
    Begin
      m2[I,J]:=round(random(505-255));
      write(m2[I,J]:4,'  ');
    End;
  End;

  writeln;
  writeln;
  writeln('POSLEDOVATELNOST');
  writeln;

  for I:=1 to 10 do
  begin
    m1[i]:=round(random(505-255));
    write(m1[i]:5);
  end;
readkey;
END.

Вообшем прошу не помогать советами о том что и как сделать, а если не сложно исходный код готовой задачи. Т.к. сам в этом слабо соображаю, а надабы срочно

[Alеx J'Root]

program zzz3;
USES
CRT;
VAR
  m1:array[1..255] of integer;
  m2:array[1..20,1..20] of integer;
  m3:array[1..255] of integer;
  m4:array[1..255] of integer;
  i,j,z,k,M:integer;
BEGIN
  ClrScr;
  randomize;
  writeln('MASSIV 10x10');

  for I:=1 to 10 do
  Begin
    writeln;
    for J:=1 to 10 do
    Begin
      m2[I,J]:=round(random(505-255));
      write(m2[I,J]:4,'  ');
    End;
  End;

  writeln;
  write('Vvedite M: '); readln(M);
  writeln;
  writeln('POSLEDOVATELNOST');
  writeln;

  for I:=1 to M do
  begin
    m1[i]:=round(random(505-255));
    write(m1[i]:5);
  end;

  z:=1;
  For i:=1 to M do
    Begin
      For k:=1 to 10 do
        Begin
          For j:=1 to 10 do
            Begin
              If m1[i]=m2[k,j] then
              Begin
                m3[z]:=m1[i];
                z:=z+1;
              End;
            End;
        End;
    End;
  k:=0;
  For i:=1 to M do
    Begin
      For j:=1 to z-1 do
        Begin
          If m1[i]<>m3[j] then
          Begin
            If m1[i]<>m4[k] then
            Begin
            k:=k+1;
            m4[k]:=m1[i];
            end;
          end;
        end;
    end;
  writeln;
  writeln;
  writeln('POSLEDOVATELNOST POSLE YDALENIYA');
  writeln;
  For i:=1 to k do
    write(m4[i]:5);

readkey;
END.

Добавлено через 6 мин.
Только тут не множества получились, а массивы )))