Поиск в масивах и вывод в множество

const
  N = 10;
var
  a,b: array [1..N] of integer;
  i: integer;
  m: set of byte;
begin
  WriteLn('Array A:');
  for i := 1 to N do
  begin
    a[i] := random(8)-4;
    Write(a[i]:3)
  end;
  WriteLn;
  WriteLn('Array B:');
  for i := 1 to N do
  begin
    b[i] := random(8)-4;
    Write(b[i]:3)
  end;
  WriteLn;
  WriteLn('Set:');
  for i:=1 to N do
    if A[i] - B[i] > 1 then
    begin
      Include(m, i);
      Write(i:3)
    end;
  WriteLn;
  ReadLn
end.

 program extd1;
 uses crt;
 const N=5; {$R+}
 var a,b:array[1..N] of integer;
    procedure zap( i: integer);
 begin
 writeln('Zapolnite massiv A: ');
 for i:=1 to N do begin
 readln(a[i]);
 writeln(a[i]:3); end;
 writeln('Zapolnite massiv B: ');
 for i:=1 to N do begin
 readln(b[i]);writeln(b[i]:3);end;
    procedure sett(var m:set of byte); begin
 for i:=1 to N do
 if a[i]-b[i]>1 then begin
 include(m,i); writeln(i:3); end;
 begin
 clrscr;
 readln();
 zap(); 
 readln(); set();
 readln(); end.

uses crt;
const
  n = 10;
type mas=array[1..n] of integer;
     mnz=set of byte;
procedure Vector(var v:mas;c:char);
var i:byte;
begin
writeLn('Array ',c);
for i := 1 to n do
 begin
  v[i] := random(8)-4;
  write(v[i]:4)
 end;
writeLn;
writeln;
end;
procedure Mnoz(v1,v2:mas;mn:mnz);
var i:byte;
begin
mn:=[];
for i:=1 to n do
if v1[i] - v2[i] > 1 then include(mn, i);
writeln('Mnozestvo:');
if mn=[] then write('Elementov po usloviyu net!')
else
for i:=1 to n do
if i in mn then write(i,' ');
end;
var
  a,b:mas;
  i: integer;
  m: mnz;
begin
clrscr;
randomize;
Vector(a,'A');
Vector(b,'B');
Mnoz(a,b,m);
readLn
end.