Даны два целочисленных массива. Выяснить, является ли один из них подмножеством другого (Free Pascal)

[Ilai]

Добрый день!
Помогите пожалуйста c программой. Пишу её на языке Free Pascal. Помогите составить блок-схему программы или написать саму программу:
Даны два целочисленных массива. Выяснить, является ли один из них подмножеством другого. Если является, то упорядочить это подмножество по убыванию.

[Stilet]

Я с потолка писну:

program Project1;

function comp(a,b:array of integer):boolean;
var j,i:integer;
begin
  Result:=false;
  for i:=Low(a) to High(a) do begin
    if i=High(b) then break;
    if a[i]=b[Low(b)] then begin
      Result:=true;
      for j:=Low(b) to High(b) do begin
        if a[j+i]<>b[j] then begin Result:=false; break; end;
      end;
      if Result then exit;
    end;
  end;

end;

var a,b:array of integer;
begin
 вводим А и В
 if comp(a,b) then В входит в А.
end.

[Ilai]

Сообщение от Stilet

Я с потолка писну:

program Project1;

function comp(a,b:array of integer):boolean;
var j,i:integer;
begin
  Result:=false;
  for i:=Low(a) to High(a) do begin
    if i=High(b) then break;
    if a[i]=b[Low(b)] then begin
      Result:=true;
      for j:=Low(b) to High(b) do begin
        if a[j+i]<>b[j] then begin Result:=false; break; end;
      end;
      if Result then exit;
    end;
  end;

end;

var a,b:array of integer;
begin
 вводим А и В
 if comp(a,b) then В входит в А.
end.

Большое спасибо!