Возможно ли, меняя элементы одномерного массива A, получить одномерный массив B.

type mas = array [1..10] of integer;
procedure proverka(var a,b:mas);
Var i,j,flag,n:shortint;
begin
flag:=0;
n:=10;
for i:=1 to 10 do
for j:=1 to n do
begin
if (b[i]=a[j]) and (j=n)
then begin n:=n-1; flag:=flag+1; end
else if  (b[i]=a[j])
then begin
for i:=j to n-1 do
a[i]:=a[i+1];
n:=n-1;
flag:=flag+1;
end;
end;
if flag=10 then Writeln('yes') else Writeln('no');
end;
Var a,b:mas; i:shortint;
begin
Writeln('Çàïîëíåíèå ìàññèâà');
Writeln('Ìàññèâ À');
for i:=1 to 10 do
readln(a[i]);
Writeln('Ìàññèâ Â');
for i:=1 to 10 do
read(b[i]);
proverka(a,b);
readln;
end.

type mas = array [1..10] of integer;
procedure proverka(var a,b:mas);
Var i,j,flag,n,j1:shortint;
begin
flag:=0;
n:=10;
for i:=1 to 10 do
for j:=1 to n do
begin
if (b[i]=a[j]) and (j=n)
then begin n:=n-1; flag:=flag+1; end
else if  (b[i]=a[j]) and (j>i)
then begin
for i:=j to n-1 do
a[i]:=a[i+1];
n:=n-1;
flag:=flag+1;
end
else begin
for i:=j downto 2 do
a[i]:=a[i-1];
n:=n-1;
flag:=flag+1;
end;
end;
if flag=10 then Writeln('yes') else Writeln('no');
end;
Var a,b:mas; i:shortint;
begin
Writeln('Çàïîëíåíèå ìàññèâà');
Writeln('Ìàññèâ À');
for i:=1 to 10 do
readln(a[i]);
Writeln('Ìàññèâ Â');
for i:=1 to 10 do
read(b[i]);
proverka(a,b);
readln;
end.

type mas = array [1..10] of integer;
procedure proverka(var a,b:mas);
Var i,j,flag,n:shortint;
begin
flag:=0;
n:=10;
for i:=1 to 10 do
for j:=1 to n do
begin
if (a[j]=b[i]) and (j=n)
then begin n:=n-1; flag:=flag+1; end
else if (a[j]=b[i]) and (j>i)
then begin for i:=j to n-1 do
a[i]:=a[i+1];
n:=n-1;
flag:=flag+1;  end
else  if (a[j]=b[i]) and (j<i)
then begin for i:=j downto 2 do
a[i]:=a[i-1];
n:=n-1;
flag:=flag+1;  end  else
if (a[j]=b[i]) and (j=i) then flag:=flag+1;
end;
if flag=10 then Writeln('yes') else Writeln('no');
end;
Var a,b:mas; i:shortint;
begin
Writeln('Çàïîëíåíèå ìàññèâà');
Writeln('Ìàññèâ À');
for i:=1 to 10 do
readln(a[i]);
Writeln('Ìàññèâ Â');
for i:=1 to 10 do
read(b[i]);
proverka(a,b);
readln;
end.

a[j]:=-1000;

type mas = array [1..10] of integer;
procedure proverka(var a,b:mas);
Var i,j,n,flag,m:shortint; c:array[1..10] of shortint;
begin
flag:=0;
n:=1;
for i:=1 to 10 do
for j:=1 to 10 do
begin
m:=0;
if (a[j]=b[i]) and (n>2)
then begin
for i:=1 to n do
begin
if c[i]=j
then begin m:=1; end;
end;
end;
if m=0
then begin
c[n]:=j; n:=n+1; flag:=flag+1; break;
end;
end;
if flag=10 then Writeln('Yes') else Writeln('No'); end;
Var a,b:mas; i:shortint;
begin
Writeln('Çàïîëíåíèå ìàññèâà');
Writeln('Ìàññèâ À');
for i:=1 to 10 do
readln(a[i]);
Writeln('Ìàññèâ Â');
for i:=1 to 10 do
read(b[i]);
proverka(a,b);
readln;
end.