Паскаль. Множества

[Ann2807]

Здравствуйте, помогите пожалуйста. Что нужно написать, чтобы вывелись на печать элементы множества А, которые не входят во множество B

1.Пусть заданы множество А и множество В целых чисел, вывести напечатать все элементы множества А которые не входят в множество В.

Вот исходники

 {осн программа.}
uses
     op, obrabotka;
var
       A: mn;
       B: mn;
begin
     sozdanie (A);
     sozdanie (B);
     print (B);
end.

{модуль  1.}
unit op;
interface
  type mn= set of byte;
implementation
end.

{модуль 2. }
unit obrabotka;
interface
uses op;
procedure sozdanie1 (var AA:mn);
procedure sozdanie (var BB : mn);
procedure print (var BB : mn);
implementation
procedure sozdanie;
var i : byte;
      AA: mn;
begin
        AA:=[1..10];
        BB:=[5..10];
        for i:=1 to 10 do 
                                    if (AA>=BB)then{что здесь написать?} ; 
end;
procedure print;
var i : byte;
begin
        for i:=1 to 10 do 
                                    if (i in BB) then write(i, ‘   ‘); 
end;
end.

[GetMax]

Как то так

for i :=1 to 10 do
  if (i in A) and not(i in B) then
    write(i : 3)

[Ann2807]

работает, но выводит 1 2 3 4 1 2 3 4 . это нормально?

[Poma][a]

работает, но выводит 1 2 3 4 1 2 3 4 . это нормально?

Код, предоставленный GetMax'ом, не может выводить этого.

Не понятно Вы заполняете множества. Да и зачем? Если сказано что они уже даны.

[Ann2807]

Спасибо всем большое, тема закрыта