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

uses crt;
const n=10;
type arr=array[1..n] of integer;
var i,j,k:integer; arr1,arr2:arr;
procedure zap(var mas:arr;c:char);
begin
  if c='A' then writeln('Первый массив:')
    else writeln('Второй массив:');
  for i:=1 to n do
    begin
      write(c,'[',i,']=');
      readln(mas[i]);
    end;
    writeln;
end;
procedure sort(var mas:arr; c:char);
var t:integer;
begin
  for i:=1 to n do
    for j:=1 to n do
      if mas[i]<mas[j] then
        begin
          t:=mas[j];
          mas[j]:=mas[i];
          mas[i]:=t;
        end;
end;
procedure srav(mas1,mas2:arr);
begin
  for i:=1 to n do
    if mas1[i]=mas2[i] then k:=k+1;
  if k=n then writeln('Из первого массива можно получить второй')
    else writeln('Из первого массива нельзя получить второй');
end;
begin
  clrscr;
  zap(arr1,'A');
  zap(arr2,'B');
  sort(arr1,'A');
  sort(arr2,'B');
  srav(arr1,arr2);
  readln
end.

type mas = array [1..10] of integer;
Var a,b:mas; i:shortint;
procedure proverka(var a,b:mas);
Var i,j,flag:shortint;
begin
flag:=0;
for i:=1 to 10 do
for j:=1 to 10 do
begin
if a[j]=b[i]
then begin flag:=flag+1;
break;
end;
end;
if flag=10
then Writeln('Ìîæíî')
else Writeln('Íåëüçÿ');
end;
begin
Writeln('Çàïîëíåíèå ìàññèâà');
for i:=1 to 10 do
begin
Write('à[',i,']=');
readln(a[i]);
Write('b[',i,']=');
readln(b[i]);
end;
proverka(a,b);
readln;
end.

type mas = array [1..10] of integer;
Var a,b:mas; i:shortint;
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]
then begin
for i:=j to n-1 do
a[i]:=a[i+1];
n:=n-1;
flag:=flag+1;
break;
end;
end;
if flag=10
then Writeln('Ìîæíî')
else Writeln('Íåëüçÿ');
end;
begin
Writeln('Çàïîëíåíèå ìàññèâà');
Writeln('Ìàññèâ À');
for i:=1 to 10 do
read(a[i]);
Writeln('Ìàññèâ B');
 for i:=1 to 10 do
read(b[i]);
proverka(a,b);
readln;
end.

Type mas = array [1..10] of integer;
VAR fl: boolean;
    i: integer;
    a, b: mas;
Procedure puzirok (var X: mas); { Мой любимый пузырёк=) }
Var p: boolean;
    k,a,i: integer;
Begin
p:=True; k:=1;
While p Do
Begin
    p:=false;
    for i:=1 to 10-k Do
        if x[i] > x[i+1] then
        begin
            a:=x[i];
            x[i]:=x[i+1];
            x[i+1]:=a;
            p:=true;
        End;
   inc(k);
End;
End;
BEGIN
Writeln('Заполнение массива');
Writeln('Массив А');
 for i:=1 to 10 do Read(a[i]);
Writeln('Массив B');
 for i:=1 to 10 do Read(b[i]);
puzirok(a); puzirok(b); fl:=true;
for i:=1 to 10 do if a[i]<>b[i] then fl:=false;
if fl then Writeln('Можно')
      else Writeln('Нельзя');
END.