Заданы два одномерных массива А и В размерности N. Составить программу, проверяющую, можно ли, меняя местами элементы одномерного массива А, получить одномерный массив В — Pascal(Паскаль)

var
a,b:array[1..100]of integer;
i,j,n,k1,k2,f:integer;
begin
writeln('vvedite N');
readln(n);
writeln('vvedite elementy massiva a');
for i:=1 to n do
read(a[i]);
writeln('vvedite elementy massiva b');
for i:=1 to n do
read(b[i]);
for i:=1 to n do
for j:=2 to n do
begin
if a[j]<a[j-1] then begin
k1:=a[j];
a[j]:=a[j-1];
a[j-1]:=k1;
end;
if b[j]<b[j-1] then begin
k2:=b[j];
b[j]:=b[j-1];
b[j-1]:=k2;
end;
end;
for i:=1 to n do
if a[i]<>b[i]then f:=1;
if f=0 then writeln('yes')else writeln('no');
readln;
readln;
end.