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

[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.

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

[Michael_Rybak]

Alеx J'Root, ок, поведай нам всем (почему только администрации?), с чем связано создание тобой нового профиля?

Блин, ты такой смешной... прям как ребёнок.

При переходе на личности пользуйся, пожалуйста, приватом.

Добавлено через 3 мин.

Ещё заметил такую странность, что ты все время ждёшь, пока кто-нибудь выложит решение на заданную задачу, а ты потом найдёшь там ошибку и исправишь её....

Ну а это уже чистой воды провокация. Человека с такой же, как у Вольво, готовностью помогать в решении как интересных, так и не очень интересных ему задач - еще поискать надо. Если бы он каждый раз ждал, пока кто-то другой выложит решение, он бы часто не дожидался Своими "выводами", основанными на двух или трех замеченных тобой случаях, ты ставишь в сомнительное положение себя самого.